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Most -I'f tho literature m decision tables duals with 


c'^nvorsi >n if oja.utur pr.gntas to decision tables* Applications 
)f dcclsi n tabl'js t > file handling end systeu dusiga iuii.<ng lythers 
hr*vu nls . be-.-n discussed in literature. 

The Hp.ur-Kich in this thesis fu:.s b».in t : use decision tables: 

(i) as an inturiiediii.tc lanigu.’tr.;e in c..nveruiun pr<ipr.')MS 
vvrittijn fir rie e -u.uter t« trvit f m.ther > ani 

(ll) as -ui lid in debu^^'int' ‘i»d d fu:>ent’itiv-n. 

Those are tin.- 'ire-u! in «ftich the p .teuticiliti>.s a* decision 
tnbl«.s have n .-t been ex]«l..red s . far. The f 11 (Wing are the ur.iin 
rwsults rep>rtr;d in this thesis. 

(i ) .'Ji ‘.U^ >rith:.; t . 'bt'dri decial n tabi'is c rri.s^i .ndint.; 
t. ayntficMcrilly c'rTo-ut POiffie.” pr h^is been dsTelapud . 

The 4'! Yen pr gr'bi is scanned fr-<..s th.; first statu..iunt. Wiille 
ucnijiing, tw * t:;.bleu .* >'md 3 ;ire f r'.ud. All the c sitr «1 statuueats 
are entered in Table A f-.nd till the executable statoaentst with 
ot.'.t .Kent i)Ui..bers iu t'.blc D. lising the ab Vu two tables* the 
alj.: >rlth;'. (‘ivi;s a u:/Mtii:::.'itic pr- e<; iure f a* btaioing the duoisivdi 
labi e. 

%tuud n thi; abivo alg irlth-:* LOGiT.:;..'<* a tri^nslat r t « 
c.-tjYert FOIiTIiA’i !>r) 4 ; 7 :tu 8 to di-eisi n tables has been duvelepud* 

This tn^nslcit .r takes syntactic:; J.ly c.-rrect ?C27!ib.ir pr. 4 sru..i 8 os 
input and ;nr'iduee8 the c Trusponding dweisi .'n table as lut^mt. 
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lOGIXHATf has bu-.-n writton in FGRSrJd-lV and has a high dogroo ot 
machine indopendcncu* Xf a Ittrge doeisi-'.n table is fed as input 
tu LOOITfuk!) it w.^uld alsw iiarea it int . svillur tables. 

(il) Thu applicfiti-ms -t B> il>;an ir^tric.-s assieiotud ivith a 
fl ^wch'irt « A 0 u;utur pn^grtra ur*. ecltically an;U.y8ud and their 
Rh:.rte‘.!ain(;u disou::.*3od. A structur-,- rv.trlx is -s^d as a. better 
and !^iru genornl repri.Kent'itl .n ‘‘f pr-gm.! structur<;t;. 

(iii) 3r;sud in the ab <vt. rj(.*nti-}rM 2 d atructurt; intrix,:in 
•‘Jiturn.i.tlvu pr .cediir*. t i g».t thu n«:ci:jl n tublus h'.:i been devulopud. 

(iv) MtkTDT* *.• schu:Mi;y vdiich c vmbin.u the pstenti:ilitii.s iS 
.iatrious /ind deciuL tables is pr p :j».d us on effective deteigging 
;md d >cu:aent:iti >n rdd. 

(v) .. methid is nuggi.stuJ w!i«;r>:biy B v;.je|jf tiio diffioultiou 

I 

•f tr'uiixLati .n f r.u:».:.;bly iuigurige pngrcjac am be by :iaus.d by 
d>:eL.ii m t-.blen *i» -.n int>;r.^.diate l.*ir<gi*f«ge. 

.'a; uig irith:': t f e .avi.rt asde.rfbly langu'^o t j 

decici in tables is l.vel •i-'d. The deeii‘;i in table £j.ijng«Lth a oertiULn 
.au unt if :re arid j) i«t .ditinej, it ie lV.lt, -v Aild lei:;d t J SKeu 
useful ideas f .r a living the dec. ».,>lli.-r pr •biei.i. 
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CHAPTER I 


IHTRCDUCTION 

Two important, seenin^jly different problems facing 
computer scientists have been the detection of logical errors in 
pr.jgra:.’.3 and the problem of converting programs written for one 
ctjuputer to that of mother one. This thesis proposes the use of 
decision tables as an intcmediate step in solviutj both those 
problems . 

If algorithms for the convurolon of coni»uter prcgjrams to 
docisiun tables were available then the rosulting decision tables 
would be very useful for detecting errors in logic. As programs 
for converting decision tables to m chine Imguage ore available, 
decision tables would be a g'-x)d intermediate lmfp.iage in converting 
proiprcu.iG written for one computer to those of mother. This thesis 
atto.’iipt:) tt.i di.'vel .ip such algorithms. 

Given a c :)i;iputcr proipram, the problem of analysing it has 
loig: existed. Tht^ purpose of anfilysis u?jy be to xmderstnnd a 
program produced by another person, to document a program, or to 
debug one. It Is w'rthvdiilo to aut ojmite this process of debugging 
and documentfiti n, that is to dovel .j) c omputer programs which would 
analyse a U8er% progrroa and display logic iiapleuentod by the 

The obsolescence tljno of computers have been about 5 
yetiTS and this has created the problem of running programs 
written for an old computer on a new one. Economy of investment 
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in terns of tiae and money requires that this b© done with a 
i.unii.iU3n extra effort. 

1 .1 * History of the Probloa; 

For getting the program logic, Flowcharts have been 
trnditi anally used. A nux.jbur of techniques have been discussed 
in the literature (2,22,25,27,32,51,63,80,84,85) for generating 
flowcharts with comuters, Plowcharts, ijorticularly Ci’^nputer 
/generated ones, have a nurober of deficiencies which make them 
poor vehicles of couuunicati^^n of pr)gra:n logic. In c^xaplex 
l^rublems a clear and obvious flow -sf logic freu START to STOP ia 
difficult to detect with flow charts. This difficulty is Cixa^rounded 
in c-xiputer generated flowcharts where the lioitation of available 
chiractcr sets and printer spxce make the charts extend over a 
nuiijcr ;f pageo and :iake then unreadable. Further if an analyst 
mats to' find jut whether all cofnditi ns have been accounted for 
or if alternate superior methods exist, flowcharts ore of little 
use. Another difficulty has been that flowcharts can not bo used 
as a direct input to a machine (90 )• 

Dociaton Tables (d.T.u ) iverc otse some .'>f those 
difficultiuB (1,6,8,12,45,56,60). Those tdiles define clotirly and 
c nciseiy the program lotiic in a tabular form and separate the 
conditions tested from the actions executed. The tabular structure 
facilitr'-tes debugging,; of program lu^'d-c . Further the printer output 
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oa» be presented in n foruat which is er.iinently readable. 

It wjuld be worthwhile t > aut..nate the conversion of 
prograi.*s to decision tablos. When such n translator is available, 
then pr..:)grexxier8 aay use it as a debugging aid t^ detect errors 
in j)rnt-,ran lof^ic or to have an up-to-date documentation of the 
piro^rru'.. For assoably lazoguage programs the decision tables 
obtained laay be used as an Intezxxodinte languatje in oonveraton 
besideo their use for dooxmentation and dobuggint;, 

1 ,2 Pr'Of'Taio Debu^'ginz' : 

1 ,21 Hun Tine ; 

Thera are two typos of errors which can occiir in 
ennputer prcgraziis. They are: 

i ) Syntax errors 
ii) Sonuontic err ors 

Syntax err>)rs are easily detected during coapilation by 
the trajisiat..r and error nossages given to the user, Seoantic 
errors t errors in logic, however, are acre difficult to detect. 
In ..lost pr.fpraas at least a third of the total time is spent in 
detecting err ors in lu/pLc. The problems involved in debugging' 
pr 'gra. io nuiy be a 5 )pr v.ichi 0 fl at severr.l different levels and in 
several different wJiys. In the case of a crapiler progroci, they 
tiay be approached either at the level of the absolute object code 
as loaded into nachinc, or at the level of soue interiaedlato 
language or at the level of coapilor s-xirce language,' They nay be 
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approached by extracting information frr^m the computer console, 
providing check point infomation for comparison with intermediate 
results (l8,4C) or may be approached by post mortem or snap dumps 
( 59 ) or by tracing sections of the program (15^37). Data too, nay 
be crr.-ucous and have to be taken care -f (44). 

Svj:.ie of the standard diagncfietic procedures were described 
above. These procedures require that the prcigraomer real in s»mple 
data with his program, and then follow it up thr’ough the program by 
aeans of memory dur.ips, break point printing and similar procedures. 
It must be noted howtjver thi’.t these procedinres are dependent upon 
the test data, a proper choice of which in itself is quite an 
arduous task. Sonko (81 ), Miller and MfU sney (5S) have described 
in detail £i!jout the selecti-hi of test data and checkinjj of 
subroutines. The presently available diagrvaustic procedures are 
usually time consumin^^. They are confined to the jmth of flow taken 
up linder the specific conditions existin^f at the tine of the 
particular run. Thus, a part of the prcgroj.i may never be 
encountered and a typical path cf fl;v/ loay not be seen. 

1 .22 IX;bug/':ir'v; Logical Errors ; 

Infonmtlon can also be given abjut a progremi without 
running it. Cne such technique, ne.iely, 5''l-;wchartin^; has been 
mentioned before. Techniques based on Bo/olean Matrices , 
associated with prc^graji flowcharts, have been discussed by 
Prosser (71 ) and Merinont (54 )t Elementary manipulations on 



5 


these riatrices are shown to yield detailed infcroaatlon 
concerninf; the internal logical consistency of the flow 
diagrarjs. A number of inconsistencies like redundant statements, 
and endless loaps can bo brought out by aanipulating these rmtrices. 
Docisi"':n Tables , /'uneratod fr:>!,i cjuputur pr >gracs by a translator 
progrn::. is a new debugging' technique prop osed in this thusis. 

Decisi m tables because if their t-t’.)ular structure help in 
pinpointing a:abif -ultios and c ^rtradicti ■•nn in the stateiaent of the 
1 ,.gic .f the pr stolen* 

Starting with a syntactic'. lly correct proiprau, gutting 
and analysing its structure with matrices, and finally converting 
it to a decision table is prop.jsed as a very effective aid for 
debugging logical errors in progr;u.i3 , vdthmt actually 'running' 
them. 


1.3 Overview of the Literature; 


The purpose of this section is t ; reviev/ the literature 
that has appe'ired in the area -.'f (i) pr^gra.i analysis and (ii) 
conversion if progrnius voritten in lower level language to a 
higher level lant^unge. The review is intended to place the i.icthod 
j.'resentcd in this thesis in a proper perspective. 

1 .31 literature on Prograia Aatilysis : 

Karp ( 41 ) has shown that the properties ;f directed 
graphs and the associated matrices can be usosd to detect errors 
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and clii-iinate redundancies in prograns. His paper yna the first 
one proposing graph theoretic uodels for computer programs. He 
has also shovm how these properties can be use! in the synthesis 
cf co;,ip iSite diagrtms- 

His procedure requires enuiaeruting all the proper paths 
and thus it ±o felt that any autoention of the procedures suggested 
by hia would be wasteful of ti;’.e. 

Prosser (71 ) describes the analysis of directed graphs 
Ct.rrus;- aiding.: to prograie or flowcharts, by the use of B./ole£in 
Matrices. Tw.) ouch ; latrioos are a88.'.'ointod with each gr.aphj the 
first is called the connectivity i.intrix, containing the topological 
structure; the second is called the precedence natrix and contains 
the precedence relations. Prosser’s techiiique e snsists of raising 
the matrices to higher povwirs until 8o,.;o power of the matrix is 
a null Matrix. 3y .adopting; his procedure one can got an idea about 
pr-a^iTUi setp-ients without exits, segments in loops and also if the 
progra... can bo dec imposed into relatively independent sub-progreu-ia. 

Although, wo have t..- deal vith Boolean matrices in 
Pr >saer’s techniq ie, yet it must be realised thvat raising then to 
higher powers is a time consuoing job, 

'.frirshsvLl ( 91 ) has proposed an .'dg 'rithn for manipulating 
BooleJin .mtrices, whore running time goes slightly faster than 
squiire of n (nXn is the size of the :iatrix) as compared to cube of 


n in the normal prooedxires# 
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Merlaont (54) has shovm how the presence of a 
contradiction can be revealed, without risking explicit any of the 
iiaplications of the original set, thus eliixLnatin;' much tedious 
coaputation. He describes the physicfil significance of raising 
Boolean riatrices t^> higher powers. !iis criterion for consistency 
is stated as f ollows "A set of precedence relati ,ins ie Consistent, 
if and only if, every principal subniatrix has at least one zero 
row or Zero colunn”. 

Based on this principle he gives a very aixiple procedure 
for the search of contradictions in the pragras.i. A uore detailed 
discussion of this procedure will be presented in chapter IV Wfhere 
the conversion at prograus to decision tables via uatrices is 
described. 

Meakawe. * s (55) article on Automatic Flowcharting needs a 
special reference. Aithouijh this paper is difficult to read and 
the flowcharts obtained are not elegant, it is the only paper on 
aut.'jiiatic flowcharting with an analytic approach and attention to 
seiaantics. His is the only significant paper in the open 
literature nn the flowcharting of assembly languages. In an earlier 
attempt flowcharts for assembly language wore discussed by Knuth 
(51), and his technique requires the user t^ provide ooirionts 
(Remarks field) in a certain definite format, vAiich is t jo stringent 
a requirement. 

Meakam, after describing the principles un the basis of 
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vuhich several instructions can be c^nbined, deals with progran 
flow deeoription using a list-notation. The notatiun used is an 
extension of the one introduced by Krider (50 ). Meakawa^s technique 
helps in coobining siiaLler blocks into bigger blocks, and the levels 
of flowcharting are exlmustive . 

Sor.ie of the ideas of Heakawa and Krider will be discussed 
again in the last chapter where it is shown how they can be used 
in prijgraa structure analysis and siuplificntio'n. 

1 -52 Literature: Translation of Progra.is Iftritton in Lower Level t Lunguagi 

Techniques like sLuulation (17) and onulation which aid in 
conversion of progro-is, written f .r one rjachine to be run on other 
machine's, have been dealt in great detail by Benjamin (5), and 
Tucker (86). How the probloi.i of conversion of progrtens has 
influencxjd the hardware of modern riachines has ijeen discussed by 
Me Con lack et.al. (55 )» 

In the present c.jntext -jf ennvursi m of' pragroiui 
written in l /wor level languages t-^ higher level languages, it is 
worthwhile mentitining that the difficulties involved in the fonaer 
are very much siiiiilar to those enc.;unterud in the aachino translation 
>f itotural languages. 

3ar-Hiilel (4), and Koulatina (48) have described in 
detail the various aspects ;>f the prjblera of aachino translation of 
natural languages. Analysis of atahicture and the interpretati- m of 
ueanings are the two min problens in M.T. The problem of structure, 
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that ie syxxtox has boon studied In great detail in recent years^ 
Hseover* the resefdroh in seuanties is still in on infant state (67)* 
Fri%i the jnrosunt state tit thu art in M.T.» it is felt that the laest 
difficult pxvjUleu hoinriE faced is the siultli)lo ;jeaning of wirds and 
jihrasus.* This is intrinaltully the problem jf seuantie theory (42)* 
TSaifio (€2) has sut^/'estml that syntax and sosionticsy olthoutjhi they 
have !>ov;n studied 8upRriiti.lyy dc'.v»n'l a unified treatoent if ^e 
intrinsic natures 'lohind the sentencbs is t>> 'ic clurifiod* 

GontniT tj pr siaens of tronsiati m of assenbly language 
pr.«i'vm!-.a} Goins (19) rmd Ilclpem (27»28) have discussed the sane in 
seLie detail, althou{^ fr'.ca tw.* different angles. They have ideixtified 
the flowing probleus jf translfttion of ejuputer languogest 
i) Uhtrrmslatri! 2 ility 
ii) Zdiountic expruasitms 
ill) self u edification 

iv) Girfcrences in otrueture of the source and the tox'get 
mehinijs* 

Because of thu alijve :aenti>'«ied Jif ficultios, Oolns has 
lirop-.'sed the uachlnu translati.o of a pr .grossaor pre-edited souroo 
deck, f':ll wui by S)r 'gruj:.ier post-e'iltlxv; or de1jugi'.lnc to be a 
reno nahle goal f «r nut ^.lutlo (t • be M.re i>ruciae, it ahrjuld be 
aollod '8Gi:ji aut<.:.ittie') tmnolati^ir;. Thus, shut sueus to be a 
realistic solution f this problem:, is one in vhidx aaj'xrity of the 
eork is in the :ji2dle step, with progrorxser intorvunti;:;n at either 

* Appendix I gives a few oxaesiles explaining this point* 
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end bei;:;g held t j a Gai'.s d^-es .r.'t laeiiti ni .of anything 

regarding iaplenenting his ideas, de seems to be t->o pessis-iistic • 
few reports of the trarislati oi eff-rts that went beyond 
simulation of the source liUichi'.ie, or use of ::iacr js in tiun slat ion 
(n ) have ap teared. Guim’s (24) is a good illustration jf how f.'ir 
••tne c.-i.i go sinply by pr.iceedir'ig; xn a fo-irly simple uiaiuier: siuiulatiori 
of certaiOi fejotureQ ;f the sooirce ;aachi;ic a.;d instruction by iristructi on 
translation -tf the .ther st.ateae’.ts f the turce , rogT'Oi.i. 

oun.-'. did ’. tt c ;!r.sidr;r or tble-u; .f untro..u;l,itability or 
ido n.iatic expresni ms at ail. de lurpiod thi; tv;/ as j.ir.'jgraunor.; tricicp . 

OixLer's et.f! . (6b) is a;j e-ff/rt of .significant importa’.ico. 
They have dealt in detail h )w they c nivarted progra.is vflritten for 
IZ.t 705 f jr 1314 7074. They have described in. detail h..v/ dyiiaiiiio 
oxecuti^ 'i ./f th'-; source* pr* ::gra::i .T svided a trace infori^uitiou ub-mt 
its ntate;.i';nt.s a-id iastructi • ; & idific.'.ti lO.. 

The auth'iia-i have c .icluded, that f.ot all I3.I 705 pr jgrtuas 
c 'Uld be translfited. They did .a st care f..r senantics and .lever a.j/ie 
aiy attempt t t deter-d-'ie the actual .aear.ing in terms of the 'jrigiijfOi 
problem and did n -t make any attempt tj follow the hardware logic 
.->f the a'urce machine- tr.ausi.'ition.. 

Ons.s’u.ian (77) dencribea a c.nai/uter or -<gra..i which translateu 
asm.nbly la.'igaage decks f.-r the I‘5.t 1700 seri.-s i.nt F0dTIb..N. Tiie* 
author do^s not d-.-scribe lUiy alg ritir-i vihich aided in the 
translation process. 
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cslen’s (66) paper on translation of pro^'raias frou Iftiiico 
2000 series for IM 7094 at problen oriented, symbolic lan^piago and 
liinnry levels eeeras to be one of the best in this area. He has given 
3o:.ie statistics about the nunbcr of statenents of Philco prograiss, 
'«hich had to be converted mnually, because of sov.ie of the 
difficulties nentioned before (19). 

1 .4 Nev/ Hesults ; 

Most of the literature on 'Decision Tables deals with 
conversion of computer progrfues to decision tables (3,14,20,21 ,54, 
45,46,47,60,61,67,68,73,74,88,89). Applications of Decision Tables 
(9,12,35) to file handling (13,16,23), information retrieval (52), 
systeu design (6), inventory control (79), process control (43,64), 
power system aneilysis (50 ), coupiler writing (75), raachine design 
(31 ) furvl s’witching theory (82) have been disouBsod in literature. 

The approach in this thesis has been to use decision 
tables as on internedlato lanfbU.-.igo in conversion and as an aid 
in debuggings g ind docunentatlon , an area in vhich the potentiality 
of D.T. s has not been explored so far. 

The following are the oiain results reported and represent 
the original contri’.xiti on in this thesis: 

1 . /tn algorithn to obtain Decision Tables corresponding 
to syntactically correct FORTRAN prograi'is has been developed. 

2. Jixi alternative Boolean procedure, based on the structure 


.latrix has been developed 
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>. Jm aljjorithii to obtain Decision Tables for assembly 
lan(;ua;(je iirofpraj.is has been developed- 

4. An effective •lelr-u/.f^/int'; schc:.'.e MTTDET utilieint; the 
properties of Boolean Matrices and Decision Tables is proposed. 

1 .5 Outl ine of tho Thesis ; 

Tne thesis consists of 5 chapters. Chapter II describes 
the r,i/;;.rithn for n invert in^- POBTHiA: pr.),.T.-,ias to ?...ci 3 ion T.ablea. 

Civ., 'ter III .leecriees the ii.iple; .unt.'iticjn, jf the 'ibove 
:a;ntione'l al/pjrith;,i. n au.tber of exo-;:,'lt-« are included -.v'oich brint; 

out he// decision tables serve ns excellent tools for debuf-;t:inc snd 
doceu .entation. 

In chapter IV after cliscusrjisv' th»,* short roain^is of 
ilTecedencc nti'i Cnnne.ctivity :.vitriceu, Structure : matrix is I'ropused 
.tn a oetfcf.T ani aoru j;;oneral f )r.,j of representation of 
st.rnetur.;n and an rildarith;.* to arrive at a decision table fr-,:>;i this 
structure ^oitrix is presented. 

In chapter V a ..icthod is su;;:,:ested wliereby sono of the 

difficultieea of translati ,<n of asnerAXy l/uii-uaco pr.,.fprm8 (section 

1.52) car. be :.y p>n.sue i by usint' Deoisi-on Tables as an inteKiediate 
lfir< dia^a.- , 



CHAPTER II 


AN ALGCRITHF! FOR COtWERTING PCHTRitN PRCGRArvB 


TC 


DECISION T/uILES 


2.1 Introduction ; 

I’rofjT'i:.'; and- ysin rc-vo?ilc tv;; dintiiict aOii-cts 
1 ) c j;.ii,)Utriti ..rial 
ii) lu.ical or dociri ai :.«drirv: 

NuiXTical anfilyais and rola tu l nro-ata art; o ;nc(;rnc'd ‘.vith o rsputation 
and little decision naklra> In luBine.nn d'-.tn iiroconsinii the ciaphasia 
is on procedures invi^kinij coiriplex decisi.jn 1 >,jic. ProNloas of this 
nature are frequently encountered in file hrinrllinf:, coapilers, 
string pr.jcess.'rs, process control, inventory c.iitr,ji, infori.iatton 
retrieval and eiachiine design. Since the logical devel .opuent of the 
prolleu io affected .‘nly vdien the pr is required to select 

between two or uoro possible paths, it is only the .locision eleiaents 
that arc »f iap.^irtance t.» us in .our present context. For this 
reas in it is advantage .lus t.) c o/naider repreoentati ins -.of tho 
problei;i->fl;>w that o:.iit the descri'jti .ins f the nui.ierical steps. The 
logical tree is the simplest fora -jf reprc‘Sentati..'n frora this point 
of view. The ?:ilgo)rith;.i explainel in tho next secti.in is just a 
systei.intic procedure for traversing the various paths of the tree 
frou stiort tc ter iinnls. 
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2*2, Algorithm t 

An algorithm (26) which reduces a syntactically correct 
FORTRAN program to decision teble, is explained here with the aid 
of an exan^ile. 

Example ; A student decides to go on a picnic on Sunday if 


0 STUDENT - HCraORK/PICNIC PROSiAM S.No. 

READ 10, HWORK, \7ETHR, PiaiDNG,, CLEiffi 1 

IP ( H\TORE - PEtIDNG ) 20, 30, 20 2 

20 IF ( ’AETHR - CIEilR ) 40, 50, 40 3 

50 PRINT 60 4 

STOP 5 

40 PRINT 70 6 

STOP 7 

30 PRINT 80 8 

GO TO 20 9 

60 PORIUiT ( 12HG0 ON PICNIC ) 10 

70 FORMAT ( 1 2HG0 TO TEMPLE ) 11 

80 FORMAT ( 25HC0MPLETE HOMEWORK MORNING ) 1 2 

10 FORMAT ( 4A6) 13 

END H 


Fig. 2.1 FORTRilN-II PROGRAM* Student Homework Picnic Problem 


no homework is pending and the weather is clear. If weather is not 
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clear and no hoiaework is pending, he decides to visit a temple. If 
the weather is clear axid homework is pending, he resolves to complete 
the homework in the morning and go on a picnic in the afternoon. 

A PORTEAN-II program to implement the above word statement 
is given in Pig. 2.1 . The logical tree for this program is given in 
Pig. 2.2. The algorithm could be understood by considering the 
flowchart corresponding to the program given in Pa.g. 2.3. 

Starting with the first condition the appropriate path is 
traced till the STOP statement is reached. On its way to STOP, at 
each condition state (decision element), the internal statement 
number vihich lead to the current state is recorded. Thus the path 
may be retraced from STOP, back to the previous node, appropriate 
path for the next STOP traced, and the procedure repeated. This 
way what we are doing is tracing the different paths of the 
logical tree. 

The Algorithm ? 

The given program is scanned from the first statement. 

1?hile scanning, two tables A and B are formed. All the control 
statements except DOs are entered in table A and all executable 
statements with statement numbers in table B. As DC’ loops by 
themselves do not affect the logic of the program, these are not 
considered in table A. 
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Table A consists of 7 columns. The first column contains 
the nature of the control statement. For IP statement j the expression 
withih the paranthesis is entered, GOTO and STOP/RETURIT are entered 
as they appear. Column 2 has the serial number of the statement. 

Column. 3 has the STATEMENT number of the statement if it has one 5 
otherwise it is a blank. In columns 4,5 and 6, the three branches 
of the IP statement are entered. As GOTO is an unconditional transfer 
to the sane statement, this statement number is entered in all the 
three columns (4,5 and 6). As STOP has no ’’transfer to" statement 
number, col^JIIlns 4,5 and 6 are blanks. The seventh column is used 
as temporary -storage. Table A corresponding to the. example program 
given before is shown in Pig, 2.4. 

The second table (Table B) has four col\mins. In the 
first column the executable statement as it appears in the program is 
entered. The second and third columns are similar to the corresponding 
coluians of Table A. The fourth column is used as temporary storage* 
Table B corresponding to the sample program is shovjn on the next 
page., (pig. 2.5). 
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TABLE A 


Coluian Ho. 

1 

Condition 


2 3 

S.No. Statement 
Ho. 


4 5 6 7 

Br 1 Br 2 Br 5 Temp 


HdRK - PEEDHG 

'JffiTHR ■- CLE^ffi 

STOP 

STOP 

GOTO 


2 

3 

5 

7 

9 


20 


20 JO 20 

40 50 40 2 2 

- 3 5 

- - - 3 3 

20 20 20 2 


Pig. 2.4 TAEiiE A for Program Pig. 2.1 


1 

Statement 

PRIHT 60 
PRim? 70 
PRIHT 80 


TABLE B 


2 

3 

4 

S.Ho. 

Statement Ho. 

Temp 

4 

50 

3 3 

6 

40 

3 5 

8 

30 

2 


Pig. 2.5 T/.BLE B for Program Pig. 2,1 
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Using the above two tables, the decision, table is 
developed as follows: 

1 Scan the first row of Table A* Enter condition in the 
condition stub of decision table* See if statement number in 'Sr 1 is 
equal to either Br 2 or Br 3* If yes, circle the appropriate entry. 
Eater .HEiO in condition entry if Er1 = Sr3» If Br1 = 3r2 enter .LB.O 
In all other cases it will be .11*0. 

2. Match the statement number of Er 1 against entries in 
column 3 of Table A. Go to the matching row. Enter in column 7 of 
matching row the serial niomber of the statement from ■v^hich the 
present statement was reached. In this example row 2 matches. As 
we came from serial 110*2 a'2^ is entered in TEMP (Table a). Enter 
in condition stub of decision table the contents of column 1 , unless 
it is for a STOP or GOTOj In this case row serial No. 2. 

3. Scan Br Br 2, Br 3 (of matching row) for equality, 
circle equal ones* Repeat step 2* In this case no statement number 
in Table A matches with 40. In such a case go to Table B and match 
with coluran 3 of this table* Enter in Temp of Table B the serial 
number of statement in Table A vtoLch led to it. Enter matching 
entry statement number as an action in the decision table. 

4. See the serial number of this statement. Go to the 
next higher serial numbered statement in Table A. Enter in TM? 
the serial number of statement in Table A v^hich led to it. (in this 
case 5)* If the statement is STOP, enter it as an action entry. 

If it is a condition, enter the condition and proceed as in step^:2. 
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In case of STC?, the next rule is to be found. For this go to the 
row whose serial number is in oolumn 7 (Viz. 3 in this case). 

5. lake the next uncircled branch of this row (Br 2 of row 
serial number 3 of Table a). Scan Table A, column 3 (statement 
number) for a match for this branch. If no match found, go to 
Table B for a match. Repeat step 4. In this case serial number 4 in 
Table B matches. It leads to STC?. The Temp, entry is 3 and it 
leads to serial number 3. As all branches have been considered 
(all branches of this row circled), one goes to the row serial 
ntimber 2 as given in TEMP, , after erasing the circle around Br 1 , 

Br 2, Br 3 of the most recently tested C'Ondition. 

6. The uncircled branch of the condition taken up is 30. 

It is circled and the branch taken. It leads to Table B serial 
nuimber 8, which leads to 9 in Table A. The branches of 9 are all 
equal (gOTO). It is thus an unconditional branch and leads to serial 
number 3. The branches of this statement are taken up one at a time 
and the same steps as before are repeated. 

7. I?hen all branches are scanned, control is returned to 
serial number 2 vshich is the first condition statement in the 
program. As all branches of this statement have been exhausted the 
procedure is complete. 

The resiilting DECISION T-:1BLE for this sample program is 
shown on the next page. 
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DECISION lAHLE 


ENTRY 


Condition 


RULE 


HNORK - PENDNC 
17ETHR - CLEiiR 


•NE«0 •NE 4 O *EQ* •EQ^O 

• NE *0 4 SQ *0 • NE *0 • EQ • 0 


Action 


GOTO 

GOTO 

GOTO 


40 

50 

30 

30 

STOP 

■ STOP 

40 

50 



STCP 

STOP 


2.21 DO loops : 

It has been mentioned before that DO statenenlfe are not 
entered in Table A: our aim in program analysis is to get the program 
logic . Eor this our approach is to consider conditions - such that 
every path will be traversed at least once and, furthermore, that it 
will be entered from every possible entry point. If these conditions 
are satisfied, we shall know that the work performed along a path is 
correct and that the conditions at each of its entry points are the 
proper ones for sucessful completion of the path. Under this premise 
it would be unnecessary to go throu^ each loop more than once, 
iinless dictated by an entryj from another path. A single traverse 
through the loop will give us the logic. This means that if we 
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have specified conditions to cause the program to exit once from each 
side of a branch point, it will be inconsequential to us, in so far 
as the program logic is concerned, rtiether the program subsequently 
loops back to a previous point in the program or goes to a stop. In 
the tree and the table, a path that leads into a loop will appear the 
sane as one that leads directly to a stop, in so far as the debugging 
reqvdr enent s are concerned. 

In numerical analysis and iterative type problems, some 
steps of computation amo'unt to the object time modification of the , 
condition tested within a DO loop. Such cases are discussed in 
section 2 4. 

Action Set ; 

The actions are written in the order in which they are 

executed. 

Above is a simplified version of the procedirre used for 
converting DORTlAIf programs to DEQISIOIT TAHLEg. However j statements 
like computed aud assigned GOTO have not been de^t with in the above 
deccriptien. Many such problems are encountered in T'ORTRAU' programs 
and are dealt in the next section. 

2.31 O-’ornputed and Assigned GOTO; 

These are taken as a sub-decision table and linked to the 
main table, for example, 

10 GOTO (20, 30, 40, 25, 40), I 
can be expressed as shown on the next page. 
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SUBTABDE 10 


I 


1 2 3 4 5 




GOTO 


20 30 40 25 40 

! 


Sinilarly 

16 GOTO IMIEZ, (20,40,43) 
can be expressed as, 


SUBTABLE 16 


INDEX 


20 


40 


GOTO 


20 


40 


43 


43 


2.32 Extensions for EORIEAN-IY : 

Logical IE a ; 

In the case of logical IPs- only one branch is explicitly 
specified if it is a GOTO sone statement number. The other branch 
is implied as the next serial statement. This can be taken care of 
by using serial numbers of various statements for finding a match in 
step 2, Section 2.2. 

Complex Logical IE 

Complex logical IE s can themselves be considered as a 


decision table and are treated similarly. The sub-decision •^able 
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is entered in table A and properly linked to the remaining 
IBCISION TABLES. Par example 

11 ip(a.eq.b. and.c.le.ii.or»a«iie.l.ahd.p) goto 25 

m.11 give rise to 

SUBTAHLB 11 


! 

1 2 ELSE 

i 

A - B 


C - D 


A - D 

.HE.O 

P 

T 

1 

GOTO 

I 

25 25 Next serial number 


In the above decision table, the relational operators, 
are picked from the program statement e.g. 4.' zero “ .LT.O etc, 
etc, and for logical variables a T is entered for .TRUE. 

2.4 Uon-Tree Structured Erograos; 

The algorithra given in the last section works well for 
tree-structiared programs like compilers and those encotaitered in 
business data processing problems. However, the previous algorithm 
fails in iterative computational problems, such as those encountered 
in aaumerical analysis. This is due to the fact that the algorithm 
does not distinguish between paths due to loops and other pathsj aJEJd 
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Fig. 2.16 Dlffloulties; Non-tree Structured 


Program 



27 


C sample program gauss SEIDEL 

DIMENSION A(3,A),B(3,4),X(3,22) 

12 PRINT 41 

kEAD ICjNsMAX ,CL0SE5K,M,N0 

10 F0RMAT(2lb,F10c3,3l5) 

READ > (X ( I ? 1 ) , 1 = 1 ,N ) » { ( A( I , J ) , J = 1 ,|Vi) , I =1 ,N ) 

DO 11 I ” 1 9 N 
DP 11 J=1,M 

11 b( I ’ J )=A( I , J) /A( I , I ) 

C 'KEPT FOR THE SAKE OF TRIAL 

22 1 = 1 
133 J=1 

X( I,K+i)=B( I ,M) 

C25 IF(I-J) 17,16,17 

25 IF(I-J) 17,16,57 

C KEPT FOR THE SAKE OF TRIAL TO REDUCE THE SiZE OF DECISION 

C TABLE 

15 X( I ,K + 1 ) =X( I ,K + 1)-B( I , J)^:-X( J,K+1 ) 

GOTO If 

17 X( I ,K+1 ) =X( I ,K+1 )-B( I , J ) *X ( J,K) 

16 IF(J-N) 26,27,27 

26 J=J+1 
GOTO 25 

2*’ IF(I-N) 37,38,38 

35 1=1+1 

GOTO 133 
38 L=K+1 

DO 21 l=l,N 

ABSFX = ABS (X( I ,K+1 )-X( I ,K) ) 

IF ( ABSFX-CLOSE) 21,21,47 
47 [F(K-MAX) 56,57,57 

21 CONTINUE 

PRINT 991, (X( I ,L) , 1=1 ,N) ,K 
NO=NO+l 

IF(N0-2) 12,12,97 

56 K=K+1 
GOTO 122 

57 PRINT 43 

41 format (/IH *) 

43 F0RMAT(/1H ,* PROGRAM FAILS TO COMVERGE^^) 

991 FORMAT! IH ,5X4HX1 =F12 . 5 , 5X4HX2 =F1 2 o 5 , f X4HX3 =F12,5, 

ICH K=T3) 

97 PRINT 41 

99 STOP 

END 


FIGo2o7 SAMPLE PROGRAM-GAUSS SEIDAL METHOD 
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DEGISIOH TAllLE 
RULES 


;tion 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

j 

.IT.O 

.LT.O 

.LT.O 

.LT.O 

.LT.O 

.LT.O 

.EQ.O 

.EQ.O 

• SQ * 0 

.EQ.O 

.EQ.P 

o 

* 

.GT.C 

IS 

•LT.O 

• GE . 0 

« GrE*0 

.GS.O 

.GE.C 

.GE.O 

.LT.O 

.GE.O 

• GE^G 

.GE.O 

. GE . 0 

.GE.O 


I 


•LT.O 

.GE«0 

.GE.C 

.GE.O 

.GE.O 


.LT.O 

« GE *0 

.GE.O 

.GE.O 

.GE.O 


x) 














•) 

■b) 



•IrE*0 

.LE.O 

.GT.O 

.GT.C 



•XiE *0 

.LE.O 

.GT.O 

.GT.O 


2 



%IiE *0 

.GT.O 





•XiE *0 

.GT.O 




iiX 





.LT.O 

• GE *0 





.LT.O 

.GE.O 


NS 















17 

37 

38 

97 

56 

57 

26 

37 

38 

97 

56 

57 

57 


26 

133 

21 

STOR 

122 

STOP 

SELR 

133 

21 

STOP 

122 

STOP 

STOP 


SELiR 

SELR 

12 


SEEP 



SELR 

12 


SELF 






SELR 






SELR 






Rig. 2.8 Decision Table for Prograra of Rig. 2.7 
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goes astray vdiile retracing the path (step 4 section 2.2). That 
this can not be expected to be otherwise, can be proved using 
the theory of Automata (59). 

There is a problem in identifying the path of approach ' 
while tracing back, once it has entered into a loop for vhich the 
starting point does not belong to the loop. The entry in TEMP of 
Table A corresponding to node HI or 172 (Pig. 2.6) gets modified. 

This difficulty can be overcome by having an additional column, 
called MASTER temporary. The MASTER temporary keeps track of the 
main logic flow and the other TMP keeps track of paths due to 
loops. This will be further discussed in the next chapter vhich 
deals with the implementation of this algorithm. 

A small such program and decision table corresponding 
to it are illustrated in Pig. 2.7 and Pig. 2.8. 

2.5 Parsing ; 

A common problem in applying decision tables to 
non-trivial tasks is that the tables become so large that several 
of their main advantages are liable to be lost. It is useful in 
such cases to reorganise then into smaller tables by Isolating the 
conditions, and the decision irules into independent groups, that is, 
to reduce a large decision table to a workable size ytoile still 
retaining logical completeness. 
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The idea of parsing is illustrated here -vd-th the help 
of a limited entry decision table shown in Pig. 2.9. 


Cl 

j I 


— 

— 

IT 

— 

C2 

i 


... 

Y 


Y 

03 

I Y 

[ 




IT 

.... 

04 

i 

I 

I 

Y 


IT 


Y 

05 

Y 

— 

N 

— 

Y 

— 

A 

1 

2 

3 

4 

5 

6 


Pig. 2.9 Decision Table to be Parsed 

Pollack (68) and Muthiikrishnan (61 ) have given in detail 
procedures for formulation of decision tables. A bjdLef: summary 
is given below. 

2.51 Assumptions in the foraiJLation of Decision Tables; 

The following restrictions are to be observed in • 
formulating decision tables. 

i) The conditions in a table should not imply any 
ordering regarding the sequence in which they are tested. Any 
sequence regarding the order of tests is expressed in the foira of 
linked tables. 

ii) There exists no prescribed order regarding the sequence 
in vihich the rules are arranged in a table. 

iii) The set of rules collectively exhaust all combinations 
of conditions logically possible. This is automatically satisfied 
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when the ELSE rule is specified in a table. 

Assumptions (i) and (ii) permit permutation of 
condition rows and rule columns, without altering the logic in a 

docision table. It is to be noted, however, that since the actions 

are executed in the sequence in #lich they are entered, action 

entries can not be permuted. 

Assumptions (i) and (ii) given before allow rearrangement 
of rules and conditions. One such rearrangement of conditions and 
rules for Pig. 2.9 is shown in Pig. 2.10. 



Pig. 2.10 Parsed Table obtained from 'P'ig.2.9. 

" " — — I 

The parsability of a decision table depends on the 
sparseness of its condition entry i^atrix. Prom this point of view, 
it is desirable to simplify the decision rules in a decision table 
and introduce 'don't care' entries wherever logically possible. 
There are two aspects of simplification; (i ) simplification based 
On the semantics of the process described by a decision table and 
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(ii) simplification by applying some procedure based on the 
condition entries. The first aspect is not, in general, amenable 
to machine processing and calls for manual procoss3.ng by the 
user. 

Hed Chapin (s) defines this aspect of simplification as 
'parsing' and describes some outlines for constructing decision 
table for complex logical procedures. The second aspect has been 
considered by Muthukrishnan (61 ), 

Muth\akrishnan' s procedures are simple and straight- 
forward. The implementation (Section 3.31 ) is based on his 
procedure. 

The next chapter gi^ves the details of implementation and 
a few sample examples wLth the corresponding decision tables ar» . 


also included there 



CHAPTER III 


Bffi&EMBlWATICir 


3.1 Introduction ; 

The algorithn described in the last chapter has been 
implemented using POETRAET-IV language. A list processing language 
would be more suitable but PORTEjIH—IV was cho sen due to its wider 
availability and better l/O foroato 

The implementation of LOGITRAH (Logic Translator) is in two 
phase* . In phase 1 blanks are squeeaed out and the two tables A and 
B are formed. Also subtables are generated corresponding to complex 
logical IPs . In phase 2, tables A, B and sub-tables are used and 
the algorithm implemented. Duplicate entries of the same condition 
in the ' condition stub part is avoided as far as possible. Merging 
of sub-tables in the main decision table is also acomplished. Computed 
GOTO and Assigned GOTO statements are also allowed in the 
implementation. The user is expected to ensure that the program is 
syntactically correct » there are no missing and duplicate statement 
numbers and there is at least one occuis.nce of a STOP or CALL EXIT 
or RETURH statements 

The output given to the user consists of a listing of his 
program, tables A and B, subtables and the decision table. He may 
Oppress table A or table B by using appropriate control card options. 
The decision table would be parsed if requested. 

The program is written completely in POHTEAN-IV and does 
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not use even a single sub-routine written in assembly language. 
Excepting for memory capacity, back up storage (tapes) etc. the 
program does not use any machine dependent features. However, it 
does take care of certain short comings of the IM implementation 
of POEIEAN-IV on IM 7044.' 4n example would make this point clear: 

GO TO 10 • 

10 EOmiAT (* THIS IS A BiD HSI'/S*) 

Since EOEMATS are non-executable statements (10), GO TO 10 
is a logical mistake.- But such mistakes are not pointed out by the 
IM POHTEAH-IV compiler available at IIT/K. The present 
implementation takes care of this. 

Comment cards have been used very liberally, functions 
of the various pointers discussed in detail and hints given to the 
users who woxiLd like to either xmderstand dr modify this 
implementation program. 

Various segments of the program are discussed in the next 
and subsequent sections. 

3.2 Phase 1 ; 

The input to this phase is the users deck and output consists 
of tables A and By and subtables for complex logical IE s, computed 
and Assigned GOTO s. After squeezing out the blanks from a statement, 
it does the classification of the sbatements into the following 
types:- 

1 , GOTO n 

2. STOPy EETUEET^ GAIL EdT 
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■3» Computed and Assigned GOTO 
4. IF 

5o All the rest 

IF s are further classified and referenced by "TYPE’ as 

follows: 


if(xxx.of.xxx) 

GOTO nnn 

TYPE 1 

tf(xxx-xxx) 

nl,n2,n3 

TYPE 2 

if(xzx) 

nl,n2,n3 

TYPE 3 

if(xxz.o?.xxx) 

Expression 

TYPE 4 

if(xxx.op.xxx) 

CALL SUB 

TYPE 5 

if(xxx.op.xxx.. 

AHD.XXX.OF.XXX, )XXX 

1 

lOGIC/iL 

if(xxx.aed. .fot,xxx)xxx 

, Containing 

IF (.ROT. XXX ) 

if(xxx)xxx 

if(xxx.gt.xxx. 

( 

I 

1 

AHD,XXX)XXX 

>■ deOiared 

logical 

I variables. 


The above classification has been done only from ‘the point 
of view of ease of programming. 

Classification of statements is done essentially on the 
basis of string and pattern matching. FORTEAN-IV does not have built 
in character handling instructions. Instead of going to assembly 
language, routines written in FORTEAN-I'V were developed. The same 
are discussed in section 3.31. 

In the case of complex logical IFs and computed and 
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assigned GOTOs there is a provision for upto 10 rules and 10 
conditions. Miller's (57), thesis that most human beings can, at the 
best, keep track of about 7+.2 items at a time, has influenced the 
selection of the number 10, 

Phase 1 assumes that the program* is syntactically correct. 
However, if that is not so, the implementation takes care of it by 
making CiJlYOIT zero and printing a message 

"THE POLLOWIITG STATEEffilNT SEEMS TO 3E T7R0FG IN SY17DAX OR IT HAS NOT 
BEEN TAKEN CARE OP IN TIHS IMPLaCENTATION" . 

In the listing of the processer, given in Appendix III, 
phase 1 , doing the classification of the statement, is identified 
by CMSPY. 

Phase 2 : 

Phase 2 is the implementation of the actual algorithm. 

It takes care of conditions becoming duplicate, and calls MERGE to 
combine the subtables, corresponding to logical IPs with the main 
decision table, 

Btase 2 can also call a subroutine P/iESE vdiich does the 
parsing of the decision table, 

A brief description about the various subroutines vhich 
are called by LOGITEAN are given in the next section. 


*Program, viierever .■ mentioned, means users deck serving as 
input data to this processor. It is also some times called as 
SOURCE program. 
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3»31 Subroutines* ; 

IHiOCK; This is the TSOCK DATA subprogram and helps in entering data 
into labelled COMOIT Blocks (see section 3»32). 

RMQj'IL ; ( rEM OTe L eft ^ ahk) It helps in removing the impertinent 
blanks on the left of nonblank characters in a word. This subroutine 
can in fret remove the occur- Jice of any CEfiRacter starting from the 


left 


Ex. 


(char) 

X 

2'b)^ 1 

0 


OOOIIT 


RIRnCD and BCDBIH t These subroutines are used to convert 
DIFa ry to PCD and vice versa. They are used for specifying a E0EI4AT 
for an input/output list during execution of the program. They are 
also used in string matching routines. 

SQUBZE ; This removes blanks from a statement, unless the same 
are a part and imrcel of the statement as in RORBIAT and DATA 
declarations. It normally does it for 80 columns but can be used 
to take care of upto 660 columns (one initial and 9 continuation 
cards, each having 7-72 columns). 

SE/dlCH: This is used to SEARCH for a delimiter e.g. - , ( ) 

etc, etc. In case the search is successful E0UFD=100 is returned, 
along with the character string, forming a word or part thereof, 
upto the delimiter. 


*Dlock capital letters wherever given, are the actual variable 
names used in the program. 
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CAUL- SEARCH (lUNUS, ALNDM,36,TERM1 ) 

Tiiiere MINUS = a delimiter 

ALNUM = AL pliabets, NUM bers 
36 = Size of the ALNDli 

TERMI = Returned- word vioi.c)i is result of search. 

jlu actual example -will make it clear: Supposing we want 
to get the character string between ( and — in the statement 

( 7 ) ( 10 ) 

IP ( IITK - ELEC ) 10,11 ,12 

the starting character is in colirnn 10, so 
Iin:TAL=10, is linked by labelled COMMON SOURCE, then 

CALL SEiROH (l/HNUS, ALNUM, 36, TEBMl) 
will return from SEARCH 

TERMI = IITK 

This subroutine also returns a PINAL value, giving the coliimn 
coinit for the last character before the delimiter. In the example 
cited above, 

PINAL = 13. 

NOELM ; (no LeLL^ ^er) . 

In statements where there is no delimiter explicitly appearing, 
we call this subroutine. It searches for a quantity OBTAIN vhich 
is followed by a character whose natvire (alphabetic or numeric) 
serves as a "delimiter". An example will make it clear: 


10 BO 100 IJ = 1 ,200,2 
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Now we donot hawe a special character as a delimiter between 100 
(scope of do) and the index IJ. We are able to distinguish between 
100 and IJ because the first character of index nust be an alphabet. 
NODMD? deals with such cases by the statenent : 

CALL NODUiEr (KXTCiAN,KK,2REVCH,KL, OBTAIN) 

■v^here OBTAIN = character string we are looking for, 
e.g. 100 in this case 

PEEVCH = Nature of characteisin. OBTAIN, numeric 
in this case 

KL = Arry size of PREVCH 

NXTQAN = Array of character following OBTAIN 
KK = Array size of NXTQAN 

It returns POUNItlOO if the search is successful. 

It would be interesting to note that we donot have to 
call this subroutine to get the GOAL of a GOTO; for' exaople for 
500 of 

GOTO 300 

We call SEARCH, looking for a BLANK. 

SEQUNC ; (SEQUeNCe of delimiters). Por a given string of characters 
(bDPPER) ,it givc-e the list of delimiters in the order as they appear 
in SUPPER, scanning from left to right. 

Ex. CALL SEQUNC (lIST,M, JPREV) 

#iere LIST = List of M delimiters in BUPPER found between 
columns INITAL and JPRE7 
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This subroutine has been found of ir^ainense help in cases 
where calling SKilRCH did not serve any fruitful purpose. This 
subroutine provides a uask and helps in. getting the required 
quantity by the next SEARCH. In other words, the nask and the tree 
nethods can be combined. 

OETENT ; (get EICTr y) This subroutine is used for lEs , computed 
and assigned GOTOs to get the character set within the roatching pair 
of paranthesis, that is to get a well formed character string. It 
assuries that the last character encoxmtered is a ( and the next 
character of BDEPER is at IKITAL (INITIAL). Before a RETURKT from 
this subroutine, the last character ( excluding ')' ) is at PINAL. 

It also retTxrns MAXNOP, which is the number of matching pairs. If 
UPTO column 80 of BUPPER, the matching right paranthesis is not 
found, it returns 

P0UND=0 , 

giving an indication that a continuation card is to be read, 
where in the matching pair may be found. 

BUT3RN . (pgT BRaNches for an IP ). 

Having fomd out the relational operator (.LE.,.GT*, 
etc. etc.) and the GOAL for true outcome of a logical IP:, this 
subroutine puts the proper values for the three branches BRl, BR2, 
BR3, to be entered into table A. It returns PODND=100 in case the 
operator met with is a logical (AND, OR, NOT ) rather than a relational 
it returns POUND as 1 , 2, and 3 for AND# OR and NOT respectively. 
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Since for logical life , the branch for ’false' condition is implicit, 
PUT3RN inserts XXTKX (STARS ) for the corresponding branches. 

DTENT ; (Decision ^able EEITr ys ) . This subroutine helps in getting the 
entrys for the rule next to the current one. Corresponding to any tree 
or two branch flovKshart, if wa get the decision table, then in general, 
any two adjacent rules are found to differ usually in one entry. Thus 
the ccjndition entries for the next riuJ-e can be "mapped" from the 
current riuLe. But there are rules for vblch this mapping will not 
represent the actual entries unless proper care is taken. There are 
instances viien a certain impertinent condition will be shovna as 
pertinent unless taken care of. DTEKT, 'with the help of PREVUO (this 
is same as TEMP of the last chapter). helps in back tracking the 
tree from STOP/RETUER back tovsards start (SE&IiOj helping in 
retaining only the pertinent of the entries got by straight mapping 
and deleting the impertinent ones. DTEHT returns a value 1 for 
EINAl for tree structured and 2 for non-tree structured programs 
(section 2.4). ('Pinal' has no significance here. This pointer is 
used only to economise in memory). In the latter case of PIMIi=2, 
DTEIJT is called again with one of the arguments as MASTER instead 
of PEEVED. MASTER keeps track of the main logic flow and PEEVED of 
the paths due to loops etc. etc. 

MER&E ; It is called ’when an entry corresponding to a subtable is 
foiond in table A. This subroutine helps in avoiding duplication of 
condition stubs of subtables corresponding to logical IPs and merge 
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the ■various subtables with the main decision table. It also avoids 
duplication of suhtables. 

mUQUE Subroutine UITIQIJE compares elements of array LONG-EX with 
those of COLS; if a new element is fcund in LONGEX, it is appended 
to COLS; if an element is found to be repeated, nothing is done. Thus 
elements of COLS are a subset of 'bhe elements of LONGEX with the 
property, that each element of the latter appears in the former but 
only once. I'his subroutine helps in establishing the proper linkages 
between the various subtables and the main table. An action such as 
given below: 



where ASIO is the header for a subtable,, would require that ASIO be 
explicitly printed in the output. Yfe would not require to output a 
subtable again if it has already been printed once. This needs a 
list of elements forming COLS, all the elements being unique. 

PARSE It does the parsing of a large decision table, and is 
based on the algorithm referred to in section 2,5 of last chapter. 
Calling PARSE is optional. 


This subroutine in turn calls CMPL, LOY/EST and EEPLAO. 

The decision table to be parsed is first stored on tape for reference, 
its entries are converted to boolean form and parsing done. The 
■original decision table is retrieved from tape and the various 
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conditions, rules, actions permuted, dictated by the parsed table. 

This can be used independently of other subroutines if the 
object is only to parse a large jdecision table c The options to be 
used for this are given in detail in (8?) and in Appendix V. 

OOlSF L ; This subroutine returns the l -s compliment of an array of I s 
and O s. It is called by PARSE and can handle any row (WHICH) of an 
array (eXEHT) and return RESULT. 

LOY / EST : This subroutine is also called by PARSE and picks the lowest 
element of a set of numbers. Further, it returns the position of the 
lowest element, if there are two elements, equal in magnitude and 
lowest, it returns the position corresponding to the one which appears 
earlier in the set . 

REPLAC . Subroutine REPlACe interchanges two rows of an army. Since 
v^e would like it to do it for arrays of varying sizes, the dimensions 
of the array, WHICH is to be replaced WHERE and where should we PUT 
the latter, are linked by arguments. This subroutine helps in 
permuting rows of a decision table. We call REPLAC first for 
permuting two condition stubs and then to permute the corresponding 
condition entries of the decision table. 

REPCOL ; For parsiiog, having permuted the rows, we have to permute 
the colutjins (rules) also. For this we would reqoiire a subprogram 
which would be similar to REPLAC, but should handle columns instead of 
rows. There are two alternatives: take a transpose and call REPLAC 
or write a subprogram to handle columns directly. Both were tried, 
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and it was felt that the second method had a slight edge over the 
first in so far as the memory vas concerned. The outcome was EBPOOL 
(HEPX ace COLu mn). 

3.32 Common Blocks ; 

For economy of memory, variables including array names are 
declared common. Common declaration provides a way to allocate the 
same memory space to variables of two are more different programs. 

A number of common blocks have been named in this program. A list of 
common blocks along with their lengths and an idea about their 
appearance in the various subprograms is given in detail in the 
listing of the main program. The idea is to facilitate changes, 
if any, to be made at a later stage. brief discussion of these 
blocks follows. 

HLank Common // This common contains variables which are used 
mainly in Phase 2 and pertain to the various parts of the decision 
t abl e . 

RULBS It provides the linkage for subtables in the different 
subpr Ligrams . 

SOURCE As the name implies, it links variables which have some 
thing to do with the scanning or pattern matching of the 
SOURCE^ program. 

DETA 3 Variables like BBGIR, GOTO, STOP, STARS (ziDax) iflhich have values, 
that are the sane as implied by their names are used at a number of 


*See footnote on page 36. 
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places in all the subprograms. !fhese contain DATA and are linked by 
ELOCK DATA subprogram. 

LOOKUP It was found time saving to use an array BOD TAH Le to store 
the BCD equivalents of the serial numbers ( BIITa ry) of the SOURCE 
program statements. The implementation requires pattern matching and 
for this a logical comparison of the string patterns was found to 
be better: than arithmetic comparison. Hence the need for B.C.D. 
equivalents, kept in BCDTilB. A LOOKUP technique is thus time saving 
as compared to calculating the B.C.D. equivalent every time it is 
needed. 

5.4 L^IUG-UAGB BOR I!1PLS:-IEK~ATI0IT ♦ 

EORTEAN-IV has been used for implementing the alogirthm 
discussed in the last chapter. Yfllich would have been the best 
language for this purpose, is an important aspect to go into. 

Prom a brief description of some of the subroutines given 
earlier in section 3.31 » it would seem that the implementing language 
should be capable of doing string manipulation. The choice, thus, 
would fall on an assembly language or a higher level language, 
specially suited for character handling. However, for Phase 2, 
wherein the actml algorithm is implemented, a list processing 
language would seem to be more suitable. 

SNOBOL, is good at string manipulation but the compiler for 
that available at IITK is very slow since it produces a very 
inefficient object code. Further this language will be good for 
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Phase 1 but not for Phase 2. For Haase 2, a list processing language 
would be more suitable. LISP would have been ideal but is not 
available at IIT/Kanp^ir . 

FOEIEAN-IV ms chosen due to its wider availability. It is 
well defined and runs on both our second and third generation 
computers. It has deficiencies but they are known. It has a fare 
amount of machine independence- (76). 

3*5 Restrictions and Conventions; 

The user is not expected to observe any special 
restrictions. The only precaution expected of hira is that the 
program is s3mtax checked and there are no missing or duplicate 
statement numbers. She idea is that the user, making use of this 
processor, should not be required to make any changes in his deck as 
far as posable. No user would like to make changes in his deck or to 
put in any extra effort if he is interested in only getting the 
logic of the program. 

However, the algoritbm expects at least one occurence of 
any one of STOP, RETNEN or CALL EXIT statements. A very valid 
question likely to be asked is 'what about the programs which donot 
include any of the above statements'. Let us consider the program 
Skelton given in Pig. 3.1. We read a set of data, do some ccmputation, test 
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10 


READ 6, Data 


IE( XZX ) 9,10,11 


GODO, 5 


GOTO 5 


11 


GOTO 5 


Fig. 3«1 Skeleton of a Program ; 


a condition, soiae more coraputation, print it and read the next data 
card, repeat the above and so on. '/Tlaen do we stop? Weill 
Somebody answers 1 ’Till all the data cards are read’i.e. till the 
next ^JJOB card is encoimtered. The author regards it as bad 
prograoning: the user is depending too much on the system, supervisor 
Such cases are not allowed by this processor. 

Implementation, in its present form can take care of 32 



46 


conditions and 32 rxiles for tlie aain dfecision table and 10 rules 
and 10 conditions for sub-decision tables. However, one can introduce 
changes to sih-t individual needs, very easily because coimaent cards 
have been used very liberally at various places which not only serve 
as documentation, but would also facilitate updating. 

3.6 Ma chine Dependent Features ; 

The PORTiyilS'-IV to Decision Table translator LOGITRAN 
has been written and implemented on IBM 7044. The endeavour has 
been to avoid the machine dependent features, as far as possible, 
so that the program could be run on other machines on which 
DORTruiB-IV is available. In fact this was the reason which prompted 
the author to avoid subroutines written in assembly language. The 
translator LOGITDiAlT, however, does include a few minor machine 
dependent, features, which are given below. 

MMOHY ; On IM 7044 of IIT/Kanpur, the core memory available is 
32,768 words. PORTIiAN users can also use tape units 0,1, 2, 3 and 4 
for back up storage. LOGITRAR has been written with the above 
memory in view. For machines of smaller memory, the sizes of arrays 
appearing in blank (//) COMMON and LOOKUP can be reduced to suit the 
available space. The other alternative is to over lay the program, 
by using the LINK and CH/lIN facility. 

TAPE 99 : Logical unit 99 is 'similar' to logical units 0 to 4 which 
are attached to tape units. But the logical unit 99, or Tape 99 as 
it is usually called in IIT/K, has been created (locally) without 
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physical input-output devjiSe attached to it. Tape 99 is not a 
standard feature but is available on most processors under one name 
or the other. In case such a facility with the same syntax, but under 
a different name, is available, by using a MAME card (38), we can 
use the translator. Appendix II gives details about TAPE 99* 

3.7 OUTPUT (EX . 'iIgLBS) ; 

The out^jut for the user consists of a listing of his 
prograia, tables A,B and subtables and the decision table. He may 
suppress table A or table B by using appropriate control card 
options. 

A number of sample programs along with their corresponding 
output are given here (Pig. 3.2 to 3.4).* It has been found that 
decision tables obtained are easily readable and are very useful 
for logic checljing. They are superior to flowcharts and their 
superiority is very evident in a tree structured program with a 
large number of branches. 

Example Pig. 3.2 contains a partial decision table along 
with the pr-.igram, clearly bringing out the utility of D.T.s in 
debugging, jln example of a non-tree structured program has already 
been dealt in the last chapter. (Pig. 2.7, 2.8) 

3*8 Conclusions and Suggestions for Improvement of Implementation; 

Programs which generate decision tables corresponding to 
syntactically correct POETR/iET programs can be used for program 


*See Appendix IV and Appendix VI. 
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C PROGRAM 2- CODED IN FORTRAN IV SUBSET 

C 

c clearly pointsout the potentiality of decision tables as 

C A GOOD DEBUGGING AID 

c 

READ 35 jMPRODjMCUSTRsMORDER 
33 FORMAT (3 13) 

IF(MPR0D-2) 10»20,30 
30 PRINT Af 

40 'ORPuATdH ,*ERROR IN DATA*) 

STOP 

20 IFdMCUSTRoEQuluANDcMORDERoEQol) GOTO 50 

IFIMCUSTRoEQoIoANDoMORDERoEQoZ) GOTO 75 
IF (f'dUSTRoEQo 1oANDoM0R0ERoEQo3 ) GOTO 100 
IF(MCUSTR,EQo2uANDoMORDERoEQ»1) goto 75 
IF(MCUSTRoEQo2oAND»MORDER.,EQo2) goto 100 
IF(MCuSTR,= EQo2oAND..iMORDERoEQo3 ) GOTO 125 
IF (MCUSTRoECo3 ) goto 75 

c 

c 

10 ^F(MPRODcEQol ) GOTO 50 

oOTO 3o 

50 DISCT=0oC5 

GOTO 1000 
75 DISCT=no075 

GOTO loOO 
loo DlSCT= 0 ol 0 

GOTO loco 
125 DISCT=0ol25 

1000 PRICE=0RDER*( 1»-DISCT ) 

PRINT 25 jMPRODsMCUSTR, PRICE 
25 FORMATdH d 2 d X , I 2 » 2X » F9 o 2 ) 

0 

STOP 

END 


ENTRY 


DECISION TABLES 




CONDITION 

RULE 1 

RULE 2 

RULE 3 

RULE 4 

RULE 5 

RULE 6 

MPROD - 2 

• LT.O 

.LT.O 

.EQ.O 

.EQ*0 

• SQ * 0 


MPROD -1 

,HE.O 

.EQ.O 

.NE.O 

.EQ.O 

.NE.O 


MCUSTR -1 



• UE* 0 

.E3.0 

.NE.O 


MCUSTR -2 



* NE • 0 

• 0 

.NE.O 


MCUSTR -3 

MORDER -3 



• • 0 

• I?!©# 0 

.NE.O 



ACTIONS 


Pig. 3*2 Partial Decision Table, Pinpointing Mstakes in Logic. 
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C program 3 BY DRoVoRo AS MODIFIED FOP LOGICAL ORS 

READ 35 ,MPROD ,MCUSTR vMORDER 
35 FORMAT (3 13) 

IF(MPROD-2) 10?20,30 
30 '^RlNT 4C 

40 F0R^..^T(1H , TERROR IN DATA-:^) 

STOP 

2( IF(MCUSTRoEQo1oAND.= MORDERoEQo1 ) GO TO 50 

IF(mCUSTRcEQo1 '^AnDoNORD£RoEQo2oORc.mCUSTRoEq«2o AmDoMORDEr 
loEQ<.l<.0R<0MCUSTRoEQo3 ) GOTO 75 
IF ( mCUSTr EQo 1 u AmDoMORDERo Eq^ 3 oHR „ mCUSTr » EQo 2 o AnD o mORDEr o 
1EQo2' goto loo 
c ^ , 

IF(mCUSTRo£Qv,2<AMDoM0RDER.EGo 1 ) GOTO 125 
10 IF (MPRCOuEQol ) GO TO 5 0 

GOTO 30 

50 DISCT = r;o05 

GO TO 1000 
75 DISCT=nc075 

GO TO ]O00 

25 FORMAT (IH , 1 1 ,2 X , 1 1 » 2x , F9 , 2 ) 

100 DISCT=0ol0 

GO TO 1000 
125 DISCT = 0->125 

ICOO PRICE=ORDER*( lo-DlSCT ) 

■^RIKT 25 sMPRODsMCUSTR, PRICE 

STOP 

END 


Pig. 3.3 Sample Program 
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DECISION TABLE 

ENTRY RDLE 


CONDITION 

1 2 3 4 5 6 7 

8 9 

10 

11 

12 

MEROD-2 

•IiT *0 «XiT *0 •EQiO tEQ^O •EQ^O •EQ^O 

• EQ»0 t-EQ^C 

.EQ.O 

.EQ.O 

« • 0 

MIROD-1 ' 

#NE«0 •EQtO #NE*0 •EQ^O 





MCUSTR-2 

«EQ»0 •EQ^O 

.EQ.O 




MORDER-1 

«EQ • 0 

• EQ m 0 


•EQ • 0 


MCUSTR-1 

•EQ • 0 

.EQ.O 


•EQ *0 


MOEDER-3 

.EQ.O 





MOEDER-2 

.EQ.O 

•EQ • 0 




MOUSTR-3 



.EQ.O 



ACTIONS 






GO TO 

30 50 30 50 125 100 100 

75 75 

75 

50 

30 

GO TO 

■i 

STOP 1000 STOP 1000 STOP 1000 1000 

1000 1000 

1000 

1000 

STOP 

GO TO 

STOP STOP STOP STOP 

STOP STOP 

STOP 

STOP 



Pig. 3.4 Decision Table for Prograia Pig. 3-5 » 
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documentation (as a replacement of flowcharts) and also as diagnostic 
aids for semantic or logical checking of programs. The latter? it is 
felt, would be very usefiol particularly because of the easy 
readability of decision tables (Pig. 3.2)» 

It must be emphasised at the outset, that the endeavour 
has beon to test the feasibility of automated conversion of programs 
to decision tables and to see how far they help in documentation and 
in debugging of programs. This is an area in vdiich the potentiality 
of decision tables had not beon explored so far. The present venture 
is a beginning in this direction, and hence by no means 'a last 
word' or an efficient outcome is claimed. Implementation wise 
also there is a good scope for improvement. 

1 * Phase 1 of the implementation vdiich scans the source 
program, statement by statement, makes use of TREE technique for 
branching. MASKEEG is another technique ^toch is used in such 
situations. Both the techniques are used. Instead of testing for 
a delimiter one by one, we can use subroutine. PATTERN, thereby 
(Appendix III, page 1 84 ) testing for a pattern of delimiters. The 
advantage is that classification of statements and the various 
types of IPs (section 3.2) can be done more efficiently. 

2. Subroutine PARSE does not pack information about the 
condition entries into bits; it uses words. When bits are used, 
a considerable apace in memory can be saved. The reason, this was not 
done in the present implementation was, that bit handling would ■ 
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require the use of the laachine dependent features! non standard Aro» 
OR t COMPL functions or the use of subroutines TOritten in assembly 
language . 

3 • ht a number of places records have fcaan vrtfitten oa tape 
in BOD format and vdien needed are read also in BCD fonnat, This has 
been done to facilitate modifications, if any, at a latter date. The 
idea was that if one wants to make some changes, one should not get 
lost. However, if this aspect is not to be considered, then binary 
REuiD and "WRITB instructions would do. This change would resxilt in 
faster processing besides saving in raemory. 

4.. The processer is written in PORTRAN-IV. vVe should try 
to use D.T.S for writing a program for D.T.s , that is, use a 
processor (61) which allows decision tables as a direct input. D.T.s ■ 
embeds d in PORTRAIT should go a long in improving the over eill 
efficiency of the processor. 

The above discussion was for this implementation of the 
processor. However, we must answer a few very basic fundamental 
que sti ons ! 

1 ) Is the algorithm the best? 

2 ) Does the output depict all the different types of 
Imgs in a PORTRillT program? 

3 ) Can we apply a similar algorithia for programs written 
in languages other than PQRTR'ilT? 

An attempt will not be made to give in detail the answer to 
all these questions in this chapter, because the same are discussed 



57 


at length in the subsequent chapters of this thesis* However ^ a 
brief discussion would not be out of place* Let us take up each 
question one by one. 

It is not clained that the algorithm is the last word. In 
fact, it has already been mentioned that it is just a beginning. The 
use of decision tables as an aid in debugging had not been explored 
so far. Excepting Miller and Maloney (58) nobody, to the best of the 
knowledge of the author, had even thought of using D.T.c for 
debugging. Even these two authors discarded D.T.s for debugging 
for programs other than those written in tabular language. It is, 
thus, just a beginning in this area and there is much scope for 
improvement, which will be clear, even as we go along and answer the 
second question. 

Well, certainly the algorithm in its present from does not 
throw any light on endless loops and program segments iMiich are 
never reached for. The considerations mentioned just now, along 
with an offshoot of the first question naxiely can we have a binary 
procedure for conversion of programs to E.T.s has led to the 
algorithm given in the next chapter of this thesis, v^ere it is 
discussed in detail* 

Lastly, it is f elt that the philosophy of the algorithm 
will work for languages other than PQRTHAH also, though the details 
of how the algorithm could be implemented would depend upon the 
particxilar langxoage under consideration. Conversion of assembly 
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language prograas to decision table is discussed in chapter V of 
this thesis. There, it is dealt at length along with the various 
other difficulties encountered in conversion. 

An altogether different approach would be to develop a 
general processor which could take care of all languages: let one 
describe the syntax of the control statements in his language, in a 
neta language (85) and then for any program, it woiild be possible 
to get a decision table. 

Before we pass on to the next chapter let us try to 
answer another question; Is it possible to get a decision table 
for a program which modifies itself? (19,41,92) NOl ?/e can not 
do it. J'ortunately, PORTriAlT does not allow program self-modifi cation, 
and so the algorithm, even in its present form, does not have to 


bother about it. 



OHAPTER IV 


DECISIQH TABLES 
POE 

POETEAE PROGRAMS : MATHIX RESCRIPT lOW 


4.1 Motivation ; ' 

To-vsaxds the end of the last chapter a few questions had been 
posed whether decisi m tables can give us an idea about endless loops 
etc. etc. Decision Tables, by themselves donot give any such 
indication. But, as was mentioned in Section 1.31, the Boolean 
matrices associated with a program can. The main advantages of these 
matrices are that, besides being suitable for machine computation, 
(30,83) they can readily give us an idea about blocks which; 

i) can not be reached from input (Pig. 4.1a), 

ii) do not have eod-ts (Pig. 4.1b) , 

iii) are in loops (Pig. 4.1c), 

iv) decompose into to form sub-programs. 

It will be noted that, excepting matrices, no other 
existing representation can give us any idea about loops. Decision 
Tables, though very good in many other respects, completely fail in 
this respect, unless a detailed analysis is undertaken of the 
condition stub, the action stub and the corresponding entries. Thus 
it seems that there are certain features of decision tables and 
certain featiures of Boolean matrices vhich make these representations 
potential debugging aids. Moreover their potentialities are 
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For the sake of completeness, some of the definitions 
given by him are given below; 

Steps ; nodes or points of the graph, or items of the matrix. 

Symbol ; < - means precedes, a < b means a precedes b 

Chain ; a sequence of relationships of the form 

2 2^ 3 3 4 n-1 ^ n 

which can be written as 

b < b < b < b < b 

Implication; -If a < b and b < c, 

then a < c 

is known as the implication of relations a < b, b < c 

The physical significance of raising the matrix to its 
higher powers (71 ) can now be seen. Examining the graph given in 
Fig. 4.2 it vd-ll be seen that implications of the, chain axe 15,28 
and 1 8. 

Uow, the rule for finding the implication of a chain of 
two elements, namely that b. . = 1 and b =1, then b = 1, 

corresponds to the rule for finding the square of a Boolean matrix. 
Thus finding implications is equivalent to raising to higher powers; 
liaising to higher and higher powers yields the implications of the 
longer sub-chains, -until’ finally some power of the matrix has all 
null elements (if the matrix is consistent), indicating that all the 
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inplicaUcns have been made explicit. As already mentioned, 

Merimonts procedtore, besides giving us a better physical iDicture, 
eliminates much tedious cixaputation. 

Contradictions ; The matrix of a set of items in a closed loop will 
contain a non-zero element in every column and every row. i.e. there 
will be no ZERO ac ZERO GOlUlirS . Since the matiix of a sub-set 

of the original set of items will be a principal sutH.nitrix of the 
original matrix, the criterion can be stated thus; A set of 
precedence relations is consistent, if and only if, every principal 
sub-matrix has at least one zero row or zero column. 

4.21 Procedure for Searching for .Oontradiotions : 

We delete, successively, from the matrix any items vAiich 
have either zero rows or colximns i.e. all exits and entrance. This 
will yield a sub-matrix, vtoich now has new exits and entrances. The 
problem is repeated until, either every item has been deleted 
(for the consistent set ) or a sub-matrix with no zero rows or columns 
remains for the inconsistent set. 

4.3 Limitations of Matrix Representation ; 

A limitation of use of the Boolean matrix, (connectivity), 
vdien considering decision elements only, is that two different paths 
from one decision element to the next one can not be illustrated. 

An example will make it clear (Pig. 4.3). In the matrix all that is 
likely to be shown for these two paths is a single 1 in (6,7) (in 
row for D6 and colvunn for D7.^ Karp (41 ) has suggested a modification 





66 


for such cases. A refineiient of the Boolean matrix can be 
accomplished by replacing the 1 'e by the notation of the actual 
path followed. In the connectivity laatrix, the entry in row 1)6 , 
column D7 could be eV 6 or 6+6, Vsyinbolising the logical OR, 
indicating that the program can arrive at D7 by one of the two 
alternative paths. 

The above will take care of binary decision elements; what 
about an IF statement of PORT.iAIT-II which allows upto 3 branches? 
Thus, not only we must keep provision for more than 2 vra,y 
branching, for future processing, we should think of some 
representation which is better than the connectivity matrix. The 
author proposes a new matrix called, STRUCTURE matrix for this. 

4.4 Structure Matrix ; 

The structiire of a program is usually determined by a 
detailed specification describing the program, and can have various 
typos of representations, some of vhich have been discussed in 
previous chapters. Such a representation should have the following 
properties: 

i) It should be easy ti.; construct and reproduce, 

ii ) It should be adaptable to handling by machine. 

iii) It should contain all of the information provided by 
program . 

Erosser has also listed similar properties. In the 3rd 
property he has used ’topology of the flow diagram' instead of 
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^progran^ and "then he suggests the connectivity (Boolean) laatrix 
as ^*a representation #iich has all these properties’^* The 
contention of the author is that since YES, liFO, or <C > = 
branch paths are a part and parcel of the flowcharts, unless the 
representation includes some way of depicting it, in some unambiguous 
manner, the representation is not good. The desirable features 
listed by Prosser are not satisfied by a connectivity matrix* It' 
seems, he missed this aspect. The STRUCTURE matrix is proposed for 
this* 

The structure imtrix will have the various elements as 


given by the following decision table 

(Fig, 

4.4). 

It 

may be 

noted 

that this table has been drawn, keeping in 

view FORTRAN, and 

for 

any other langmge, minor changes may 

have 

to be 

made 

in the 

D.T. 

STATEMENT BELONGS TO SET 

Y 

F 

N 

N 

N 

STATEIffiNT IS UNCOITOITIOML TKANSFER 

N 

Y 

N 

N 

N 

CONDITIONAL TRANSFER 

N 

N 

Y 

N 

N 

DECLARATION (FORiaT, DIIffiNSION, END) 

N 

N 

N 

Y 

N 

STOP/RETUi?N/CALL EXIT 

N 

N 

N 

N 

Y 

Element of STRU GrURE matrix is ; 

. s ■ 

1 

OP 

N 



SET = l/O, Arithmetic Assignment, DO, CONTIIRJE 
S stands for sequential 
1 stands for the destination of GOTO 

Relational OP stands for symbols like UE,EQ,GT,IjE,GE, 1T 
U stands for ’do Not bother’ (igNore) 

)6 stands for blank i.e. donot enter anything. 

Pig. 4.4 UBGISION TABLE EOR ^S’ MATRIX ELEI;IEI^S . 


C STUDENT - HOMEWOPK/P ICNIC PROBLEM S..MO 

READ lOsHUiORK ,ViETHR ,PENDNG »CLEAR 1 

IF(HWORl< - PEMDNG) 20,30,20 2 

2C IF( WETHR - CLEAR) 40,50,40 3 

50 PRINT 60 ^ 

STOP 5 

40 PRINT 7^ 6 

STOP 7 

3n PRINT 80 8 

GOTO 20 9 

60 FORMAT! 12HG0 ON PICNIC) 10 

70 FORMAT! 12HG0 TO TEMPLE) 11 

80 FORMAT! 25HCOMPLETE HOMEWORK MORNING) 12 

in FORMAT !4A6) 13 

END 14 


!Pig. 4.5 Homework Picnic Eroblem 
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Pig . 4.6 Structure JlSairiz for Program of Pig. 4.5« 
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The advantages of, this type of entries for the elements 
of 'S' will he seen when we discuss the algorithm in section 4.8. 

To illustrate, the STUDENT HOI.IBWORIT'lIGNIC pr-)blem, 
discussed in detail in Section 2.2 (l*ig. 2.1 ),will be considered 
again (Pig. 4.5). It is to be noted that 'S' matrix contains N s 
as main diagonal elements for all declarations, that is POEMATS, 
type declarations etc. etc. The corresponding 'S' matrix is given 
in Pig. 4.6. 

It may be noted that, whereas it is possi/cle to arrive 
at the connectivity mtrix (henceforth, called P matrix, after 
Prosser) from the 'S' matrix, without reference to the original 
program, the reverse is not possible. There in lies the advantage. 
Thus 'S' matrix is more general, conveys more information and will 
be more meaningful to us if we ultimately want to get the decision 
table for the program via matrices. 

4.5 Matrices or Decision Tables ; 

The question is not 'shall we use matrices or should 
we go in for deoisi-on tables'? 

The above section heading has been deliberately chosen. 
The choice is not to be made between the two: the two supplement 
each other. Whereas D.T.s can display the logic of the program in 
a concise elegant manner, the matrix representation can help us in 
locating endless loops, spurious set of statements and in finding 
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out if the program can be decomposed into relatively independent 
subprograms. The two representations should be utilized to 
supplement each other, as a whole providing a good effective 
debugging aid. We shall come to it again in section 4.9. 

4.6 Machine Generation of 'S ^; 

Before we pass on to the next section, wliere in, the 
algorithm for getting a decision table from a matrix is discussed, 
we must answer if 'S' matrix satisfies the other requirements as 
given in section 4.4, that is,' 'it sh Jiald be easy to construct and 
reproduce' and should be amenable to handling by machine. It does 
have this property. 

In fact it could be said that, to some extent it haa 
already been obtained by a program: only a few minor modifications 
introduced in phase 1 of the implementation, discussed in the last 
chapter, can give us the 'S' matrix. Once 'S' is available, 
converting it to a Boolean matrix is a straightf ormrd procedure. 

4.7 Structure Matrix to Ccnnecfiyity Matrix; 

The structure matrix for a program was discussed in 
previous sections. An example of such a matrix was given in Fig. 4. 6. 
In order to get an idea about loops, spurious blocks etc. , one 
must convert it to a Boolean matrix. This can be done by the 
procedure, given on the next page: 
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i ) Eepla ce every S by a 1 . 

ii) Replace all relational operators by a 1. 

iii) Delete. RO’^/S and COIR’-KS. 'Ahich contain an N as a 
diagonal element. 

iv) Retain other elements as they are, that is,.1 for 1 
and blcink (or zero) for a blank (or zero). 

i!K.th the above changes intrioduced, the connectivity matrix 
for the structure matrix of Pig. 4.6 is given in Pig. 4.7. 

4.8 Algorithm; Matrix to DeoisLon Table ; 

In section 4.4 (Pig. 4.4) we have seen how we can get the 
entries of 'S' matrix, corresponding to various tyyies of statements 
of a PORTRAIT program. As has been mentioned earlier, the 'S' 
matrix contains information regarding the conditional and the 
unconditional transfer of controls besides giving, an idea about 
computational steps in which the control is transferred to the 
next sequential statement. Precisely this is the information we 
need to get the structure of a program in the form of a decision 
table. It will be recalled that the algorithm discussed in 
chapter II requires tables A and 3 to be generated the two 
tables depict the structinre of the program. Since, the 'S' matrix 
itself, depicts the structure of the program, there is no need to 
separately generate tables A and B. The algorithm described below 
is a systematic procedure to trace the different paths of flow in a 
program. This will be further clarified as we go along describing 


it step wise. 
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To explain the converting algorithm we shall again use 
the example given in Pig. 2.1. liyhile getting this stricture matrix, 
v4ien we come across an IP statement, we put down the condition part 
(character string between matching parenthesis) in the 
corresponding row on the left of the serial number. Call this stub . 
Column serial numbers have been given for the sake of convenience. 

The decision table is developed as follows; 

1 . Delete the rows and columns which have an N as a 
diagonal element. Call the remaining matrix as S' (Pig. 4.8), 

2. Scan the first row of S' matrix and count the number 
of non-blank elements. Put down this number in an additional 
c.'lumn called TOTAL, (column 15 in this case). 

3a. Repeat step 2 for all rows of S'. The elements of 
column 15, rows 1 to 9 are respectively 1 ,2,2,1 ,0,1 ,0,1 ,1 . 

3b., Enter B for 'Begin' in column TaiP, row 1 . 

4. Look up S' (1,15) TOTAL (l ). It will have a 

a value 1 or 2 or 3* (it can not have a TOTAL = 0 because that would 
mean STOP or EBTURIT as the first statement). If it is 1 , go 
to step 5 otherwise go to step 8. 

5. Pick up the non-blank entry of this row. See its 
column number (vertically up), 

6. Take up the row whose serial number corresponds 

to the coltimn number. Enter in TEMP coliaan of this row, the row 
number vdiich led us to it . If the non-blank entry is other than 
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an S in one step right off-diagonal position* go to step 7 other- 
vdse enter its number as an action entry and go to step 7- 

7. Look up TOTAL. If it is 1 repeat step 5- If it is 0, 
go to step 9, if it is 2 or 3 go to step 8. 

8a. Enter in TECi? for this row, the number of the row 
which led us to it. 

8b. Pick up the characters from STUB column and enter it 
as condition stub of decision table. Scanning left to right, 
circle the first non-bl€ink element. Enter it as condition entry 
in the decision table. Look vertically up. Get coluian number. 

Go to step 7. In case there are no more unoircled elements left 
in this row, go to step 11. 

9. This corresponds to a STOP. Enter it as an action 
entry. The next rule is to be found. 

Look up TEMP and take up the row whose serial number 
appears in it (teMP). 

10. Look Uu TOTAL. If it is 1 take up the row whose number 

' ■ -i-'- • U. uu.. V ■. ;V 

appears in TH/IP, otherwise go to step 8a. 


* If the row under consideration is K , then main diagonal 
element is (K,k) and one step ri^t,off - diagonal element 
is (KfK + l). call it ROD element. 
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11. Beaove olxeles txom the eleoezxts of this row. 

Bert take up the row lAiose aoiial zuaber ap.iears In IBIP of this 
TOW. Bopeat stop 7y unless we have reahhsd the row with lowest 
serial nunhery yiHaldb. has IBiP contalnlag a 'B', whan we can stop* 
because all paths of the tree have been considered. 

12. In case at any stage we cone aceross an S and the next 

Irmediate higher serial nunber row (or colum) is in S' y we 

go to the still next higher. Xhe nlsslng row is because of 
deletion of B for non-^xeoutable statements. 

S' matrix appended with SETBBi XOIAL IEUP columns is 
Bbowa In BLg. 4.8 and dedsicm table in Hg. 4*9. 

Xho ease of computed and asalgned Q0!C06 and eomi^ex 
loglecQ can be treated in a manner similar to the one given 
in chapter II. Be treat these as sub-deeisLon tables and eatablieh 
proi^er linkages, with the main table, eadi sub-dedaion table for a 
oomplex logical IB contributing an additional row and an addltlcnal 
column, and the corresponding entdes. 

4.9 MAJBBE; In Effootive Debugging Scheme ; 

In section 4.4 it was mentioned that matrices and dedslan 
tahLes jointly -help in debugging by pinpointing endless loops', 
rodundant blocks, relatively Independent subprograms also 
provide an elegant display of logic in a tabular form. We call 
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this joint MATrices — DEcision Tables approach to debi;igging as 
MATEET. MATDET can be utilized to advantage in an actual set up, 
as follows (Eig. 4.1 O)* 



Pig. 4.10 MATDET; An Effective Debugging Scheme 


Prom program we get the 'S' matrix. Convert 'S' matrix 
to a Boolean matrix and by the technique discussed in section 4.21 
get information regarding loops, relatively independent sub-programs 
etc. etc. This inforrmtion is very useful for long programs and 
can be utilized to 'parse' the program and get a set of linked 
decision tables. The arrow, marked E, indicates that the structure 
matrix, based upon the information got from block D, can be 
'divided' into a number of eub— matrices to get the above mentioned 

— . v-P T 4 • -- i -1 




CHAPTER V 


COFyERSIOE 

ASSaCBLY MNCUAG-E PR0(51AI,1S 
TO 

DECISION TABLES 

5.1 Introduction; 

The obsolescence tine of computers have been about 5 
years and this has created the problem of running programs -written 
for an old conjmter on a new one. Economy of investment in terms 
of time and money req^iires that this be done with a minimum of 
extra effort. Some of the techniques i^hich aid in conversion of 
programs, written for one machine, to be rvin on another, as also 
the difficulties of translation of computer languages have been 
dealt before in section 1.32. In this chapter a new approach, 
v±i 0 re in decision tables are used as an intermediate step in the 
conversion process, is proposed. 

Levels of Conversion ; 

The conversion processes may be limited to one of the 
following; 

i) One assembly langmge to another, 

ii) One assembly language to a higher level language. 

iii) Object code to an assembly language (Deassemblers) 
(66,75). 
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iv) One higher level to another higher level e.g. 

I’OETRMI-II to PORTIhm-IV Gr FORTRAl-IV to 
Decision Tables. 

v) Higher level to lower levels e.g. compiler, 
assembler programs. 

In the present context, our interest is only in (i) ani (ii). 

jln algorithm for conversion from a lower level language 
(MilP) to a higher level language, namely decision tables, is 
developed, in this chapter. In as much as the language of decision 
tables is a higher level language (61 ), it may be noted that 
conversion of PORTR/lH programs to decision tables is itself a 
conversion from a lower level to a higher level language. 

Algorithms for such a conversion have been discussed in the 
previous chapters. Here we develop the algorithm of conversion 
from an assembly language program to decision tables. 

In this chapter an approach which is different from the 
one discussed in Section 1.32 will be presented. Our objective 
is to get the logic behind assembly language programs through 
decision table s, rather than to translate them to machine language 
program. It must be noted that for this type of conversion also, 
one is likely to encounter some of the problems lAhich are similar 
to these discussed before in Chapter I. Yfith our approach, however, 
we shall be able to partly overcome some of ths difficulties. It 
is felt that translati.jn to an intermediate language is a 
desirable objective and D.T.s, fulfil the requirements of an 
intermediate- language (19). Decision Tables provide a clear 
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description of the logic involved in procedures* They form 
an orderly representation of information flow, from elementary 
decisions to final actions, and encourage consideration of 
different situations that arise in a problem* They are easy to 
visualisG and update and hence serve as a useful document of 
programs, facilitating communication between people* r)*T*s can 
be directly processed by the computer, unlike flowcharts vdiich 
require coding before the machine can accept them. In addition, 
decision tables lend themselves to ' analytical treatment and it is 
possible to generate efficient computer programs from them. 

With the new processors being developed, decision tables 
are likely to be directly acceptable to a processor. The use of 
D.T.s as excellent documentation and debugging aids has been 
high— lighted in the previous chapters. The decision table output 
will display the logic and it could be used as documentation, or 
with a certain amount of editing it may be used for translation 
as input to a processor which takes the D.T.s as input. 

5*2. Conversion of Programs to Decision Tables : 

IM 7044 DOIiTHAF 7S. Assembly Laziguage . 

Before the algorithm for getting a decision table for a 
computer program (written in an assembly language) is presented, 
the following pertinent points should be noted. 

1 * Relative addressing is possible in most assembly 
languages . 

Ex* TRA ALPHA + 3 
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2. The first executable statement in an assembly language 
may not necessarily be the first statement which will be executed* 
Assembly languages which have an BHD pseudo op, allow a label to 
be given in the variable field and when execution starts^ control 
is transferred to this label. 

Bx* 

m 

3BG-IN * * * . 

i 

♦ 

■ 

START*.... **.*..***. 

« 

4 

BHD START 

3* Multiple entry points are allowed in subroutines 
written in assembly languages but not in FORTRAN. 

4. Assembly language programs can have a ’transfer to’ 
a symbol, which is not defined in the program; for example, it 
oavld be to an EXTERN label (35) or to a system generated 
EXTERN. 

5. OP field can have a macro. 

6. OP field can have an op which is defined or redefined 
in the program* 

7* Pseudo ops (for 7044) like IFT, IFF allow -conditioiial 
assembly of the instruction which follows these pseudo ops* 
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8. Certain transfer ops have actions associated vsith them. 
These actions take place before the actual transfer in some cases 
and after in certain other cases. 

The impl mentation of the algorithm must take care of these 
additional factors and the implications of these points to a 
procedure (which may be similar to the one given in chapter II 
of this thesis) follows; 

Because of relative and indirect addressing, Table A need 
not keep a colimnn for the label (corresponding to statement number). 
Serial number is good enou^. Because the OP field can contain 
an op which is defined or redefined, and also because of the 
point 3^st mentioned before, table can be formed only after 
a multiple scan. 

To avoid table B from becoming too biilky, we covild 
generate it from a list containing only the pertinent "transfer to" 
serial numbers. This also dictates a multiple scan for Phase 1 . 

Usually one is not interested in the logic for a very 
big assembly language program, one would like to get the logic for ■ 
a small chunk of the program. Thus the user should be left with 
the choice of specifying the limits (STABTIUG/PIUIS'IIUG) between 
#iich logic in the form of a decision table, is to be obtained. 

Any transfer outside these limits, then could be taken as an 
action. The processor could also take care of transfers to 
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statements which are not executable ones. This information, 
similar to, 

GO TO 10 
1 0 5'0EI"IAT 

could help in pinpointing a few cases which load to illeg^ 
instruction traps. 

With these observations, we pass on to algorithm. 

5.3 Algorithm; MAJP (iM 7044) to Decision Table : 

The given program is scanned from the first statement. 

While scanning. Table A is formed. All the statements or group of 
statements amounting to a compare, test, transfer or exit operation 
in the OP field are entered in this table (a). OP s defined and 
redefined, if belonging to any of the above mentioned categories, 
are also entered in Table A. 

Table A consists of 7 columns. The first colimin contains 
the nature of an instruction. For a compare or test instruction, 
the condition being tested (stub) is entered in column 1 . This 
will need a certain amount of back tracking . After a compare or 
test instruction, a series of instructions which follow give the 
branching for such instructions. Transfers and CALL EXITs are 
entered as they appear. Column 2 has the serial number of the 
statement. Column 3 contains the type, like, compare, test, 
transfer, CALL Exit etc. etc. In columns 4,5 and 6, the 3 branches 
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for a compare instruction are entered. Por test instructions, 
columns 4 and 6 contain the 'false' brandi and column 5 corresponds 
to 'true ' branch. As a transfer is an unconditional jump to a ^oaX, 
the same serial number is entered in all the 3 columns (4,5 and 6). 
Here again to get the prq^er serial number for a goal , scanning of 
the label field would need a multiple scan, A CAHi EXIT has no 
'transfer to' statement serial number, and hence columns 4,5 and 6 
are blanks. The seventh column is used as a temporary storage. 

Table A, corresponding to the sample program, written in the 
assembly language of IBM 7044 (MAP),Eig. 5."!, is given in 
Pig. 5 . 5 . 

Prom Table A a LIST containing the entries of coliamns, 

4,5 and 6 is prepared, such that all the elements of this list are 
unique and arranged in ascending order, and none of the elements 
appear in column 2 of Table A. Prem this LIST another table B 
is generated. Table B has 3 columns. In the first column, the 
executable statement having a serial number corresponding to the 
elements of LIST, as it appears in the program is entered. The 
second column contains the serial number and the third colimm is 
a temporary storage. Table B, corresponding to the sample program 
(Pig. 5.1 ) is shown in Pig. 5.5a. The advantage of using LIST is 
that Table B gets reduced in size, with only the pertinent ^tsAes 
being retained. This would reduce the processing time'. . Using the 
above two tables the decision table is developed as follows: 

1 . In Table A, scan the row vhich has a serial number equal 
to or just greater than the STARTING LIMIT. In this ease row serial 
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'2. Enter condition in the condition stub of decision 
table (Pig. 5 •5b)-. Go to step 3 if it is a test instruction 
(col. 3) otherwise see if the number in Br 1 is equal to Br 2 or 
Br 3* If yes^ circle the appropriate entry. Einter .M.C in 
condition entry ifBrI =Br3, ifBr1 =Br2, enter .LE.O. In 
all other cases it will be .LT.O. Go to step 4, 

3 •If it Is atest instroiction, entries in columns 4 and 6 
will be identical and correspond to ^Palse^ condition; circle the 
appropriate entry and enter P for false in condition entry. Then 
for Br2 we will have T for true. 

4. Match the number in Br 1 against entries in column 2 of 
Table A. Go to the matching row. If match is not found go to 
step 6, otherwise, enter in column 7 of matching row the serial 
number of the statement from which the present statement was reached. 
Enter in condition stub of decision table the contents of column 1, 
unless it is for a GAIL EXIT or a transfer. 

5* Scan column 3 of matching row. If a compare or test 
instruction is found in this row, repeat step 2, otherwise go to 
step 8 if it is CAIi EXIT (or TEA S.SJXT), else go to step 10 
in case of transfer. 

6. In this case no serial number is found to match with 7 
in coliHnn 2 of Table A. In such a case go to Table B and match 
with column 2 of this table. Enter in TEMP of table B the serial 
number of statement in Table A, miich led to it. Enter matching 
entry serial numb er as an action in the declsHnn tnhioi' 
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7* Go to the next higher serial numbered statement in 
Table A. Enter in TIMP the serial number of statement in Table A 
vdiich led to it (4 in this case). If the statement is STOP (or of 
similar nature) enter it as an action entry. If it is a condition, 
enter the condition and proceed as in step 2. In case of GAHi 
EXIT or TEjI S.SJXT, the next rule is to be found. Por this go 
to step 8. 

8. Por the case of CALL EXIT, go to the row vdiose serial 
number is in column 7 (S in this case). 

9. Take the next uncircled branch of this row (Br 2 of row 
serial number 8 of Table AjvAiich is 15 in this case) scan Table A, 
column 2 for a match of this number. If no match is found, go to 
Table B for a match and repeat step 7. In case all branches have 
been considered, that is, all branches are circled, go to the row 
whose serial number is in Temp, (in this case it is 4) after erasing 
the circles around Br 1 , Br 2, Br 3 of the most recently tested 
condition. 

10, The uncircled branch taken up is '7'.' In row serial 
number 14 all branches are equal. It is thus an unconditional 
branch. It leads to table B vd^ich leads to serial number 8 of 
Table A. The branches of this condition are taken up one at a time 
(step 2) and the steps as before repeated, 

11 . ’^Then all branches are scanned, control is returned to 
serial number 4 which is the first condition tested in the program. 


As all branches for this conditi on have been exhausted, the 
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Pig. 5.6 Continued on next page 
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The resulting decision table is shown in Fig. 5.5b. 

Another example of a MAP program and the resulting decision table 
arc shown in Fig. 5.6. 


5.4 Assembly Language to Decision Tables : 

Conversion of a MAP program to decision tables was described 
in the last section. A similar procedure can be used for any 
assembly language. In fact the procedure outlined works for almost 
anj”- language, once tables A and B are formed. Thus the only major 
difference lies in the procedure by \diich the two tables are 
formed. For the success of the procedure, classification of 
operation codes is important. One such classification of op 
codes (36) for MAP is given in Pig. 5.7. It will' be noted that we 
are keeping the unconditional transfer THA in a category vhich is 
different from the one having op codes which have actions associated 
with them. An implementation must take care of this fact . Similarly 
pseudo operation codes like IFF and IFT which allow conditional 
assembly of the instructions which follow must also be taken care 
of. To illustrate, how the procedure given before in the last 
section can be used with very minor changes, another assembly 
language will be considered. 

Student Home Work - Picnic problem coded in the assembly 
language of IBM 1401 (AUTOCODER) is given in Fig. 5.8 and the 
corresponding LIST, Tables A and B in Fig. 5*9. To bring out the 
similarity, the variable names and labels used are almost similar 
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Pig. 5.7 Olassifieation of op. codes. 
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to those used in the MAP progran given in Fig, 5,1 . Thus it vd.ll te 
seen that the main difference in the procedure, for getting a 
decision table corresponding to a progran written in an assembly 
langioage, lies in the way we generate Tables A and B: having got 
the structure of the program in the fora of Tables A and 3, the 
rest of it is tracing the various paths of the tree and is bound 
to be similar. 

5.5 Additional Featirres of Assembly languages : 

In section 5.2 a number of differences between programs 
written in FOETRiilT and assembly languages were discussed. A few 
other factors have also to be kept in mind. 

1 . Assembly languages allow same lable to be used in 
different portions of the program vdthout getting the MUITIHiY 
DEFIUED error by separating the different sections by, pseudo oys 
like QUAD and EHDQ. Thus any label used within a qualification 
section becomes a local variable. When a local label Hi within a 
qualification section say XX is to be referred to from outside it 
is referred as ZXoIli. Care should be taken for such labels 
vdiile generating Table A. 

2. FOHTRAF does not have any instruction like XEG (Execute). 
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There are program segments like B (Plg. 5.1 0) vihich 



Pig. 5.10 Apparently Eedundan t Itogram Segment. 

ap|^>ar to be rodundant (Section 4.1 ) at first glance but are not: 
different instructions of such a program segment are accessed by 
XIBO instructions. An example from SC^'iIJ routine of IBM 7044 PORTRAN~IV 
compiler is given belov? (Pig. 5.11) 
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Pig. 5. 11 Portion of IM 7044 FORT R/ iH-IV Compiler - 'SOAU *. 
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In such cases the 'transfer to' depends upon the contents of 
index register 4. The author feels thab it is difficult and 
expensive (in terms of computer time) to decode the logic in 
such dynamically changing program segments. 

5,6 Conclusions ; 

An algorithm vihich would convert an assembly language 
program to decision tables has boen presented. 

Programs which generate decision tables corresponding 
to syntactically correct assembly language programs can be used 
for program documentation, as diagonastic aids for semantic or 
logical checking of programs, and also as an intermediate laaiguage 
in the automatic translation of assembly language programs from 
one computer to another* With a certain amount of pre and post 
editing, this approach would help in the decompiler problem. 



CHAPTER VI 


CONCLUSIONS AHD SUCK^ESTIQNS EOE PURTHER RESEAHOH 

In the previous chapters, a solution to two important, 
though seemingly different problems facing computer scientists, 
namely detection of logical errors in programs and of converting 
programs written for one computer to be run on another, has been 
discussedo Use of decision tables as an intermediate step in 
solving both these problems has been suggested* iHgorithns for 
converting computer programs to decision tables have been 
presented. As programs for converting decision tables to machine 
language are available, decision tables, generated from computer 
programs, would be a good intermediate language in converting 
programs written for one computer to those of another or for 
program documentation (as a replacement of flow charts) and also 
as diagonastic aids for semantic or logical checking of programs* 

It must be emphasised at the outset, that the 
endeavour has been to test the feasabilitjT of automated conversion 
of programs to decision tables. This is an area in Yhich the 
potentiality of decision tables had not been e^qolored so far. The 
present venture is a beginning in this direction, and hence by no 
moans ^the last word*. 

A number of suggestions for improving tho implementation 
of the algorithm for converting PORTRilN programs to Decision Tables 
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have been given earlier in section 3^8. It would be worthwhile 
modifying Phase 1 (Section 3*2) so that we get ’S' matrix and 
then could get an idea about spurious blocks, endless loops, if 
any, and about relatively independent sub-sections of the sample 
program. The latter, it is felt, would be very useful to debug 
and document very lengthy programs. For segmenting the sample 
program, .Meakawa 's (53) procedures, based upon the list technique 
suggested by Krider (50 ) could bo useful. 

It has been shown that the ptd.losophy of the algorithm 
works for languages other than PORTJMI also, though the details of 
how the algorithm would be implemented depend on the language being 
considered. Algorithm for converting IjIAP program to decision 
tables (chapter v) is very similar to that given in Chapter II 
(FORTEAIT to D.T.c ). Because of this, an, altogether different 
approach, similar to one given by Sherman (85) for flowcharting, 
nay be to develop a general processor vhich would accept all 
languages. The technique would be to describe the syntax of the 
control statemehts of the language used for the sample program, 
in a meta language, and feed the sample deck to such a proceh'sor 
to get the decision talie. ' 

For programs Ttoich modify themselves, the algorithms 
presented in this thesis will not work. Before one attempts to 
get decision tables for self modifying programs, one shall have 
to^a3aswer i/diethef a seif modifyi.ng decision table cottl^bu.dSfihedj 
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and if so, vdaether it to. 11 aid humn thinking in program debugging. 

■??Lth the techniques discussed in this thesis it is 
possible to pointout the mistakes in logic. However, an ideal 
solution would be to pointout the particular statement or a set 
of such statements which, when corrected would result in correcting 
the mistakes in logic. In the absence of this ideal solution, 
the next best solution would be to narrow down the region where- 
in lie the mistakes in logic. 

A different approach to tackle the same problem would 
be to go in for a very detailed condition stub analysis. It 
might be worthvhile, from the point of view of further 
pinpointing the bugs in a program. 
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A? :'EHDIX I 


HIOBLM OE SMAMIICS 

M 

MAGHIITE IBAUSLAIIOF OP LAMGUAGES 

Ei'Ota the present state of the art in machine 
translation of lar^juages, it is felt that the most difficult 
problei"! being faced is the multiple meaning of words and phrases, 
vAiich is intrinsically a problem of semantic theory. A few 
exai-iples will make this point clear. 

Em.'nnple 1 . ( 4 ) (Sar-.iillel, Appendix III) 

The box ’vas in the pen. 


The linguistic eontext from which this sentence is taken 
is, say the following: 

Little John was looMng for his toy box. K.nally he 
found it. The box ms in the pen. John ms very happy* 

AssuTiingj for simplicity that pen in English has only 
the follomng two meanings: (i) a certain writing device (ii) an 
enclosure where small children can play; in the current state of 
the art, no existing or imaginable program will enable a computer 
to deterirdne, that the word pen in the given sentence, within the 
given context, has the second of the above meanings, whereas every 
reader ^dth a sufficient knowledge of English will do this 


"aut omati ca Hy " • 
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Exaaple 2 . 

Ton and Dick went to the store and the movies respectively. 

Helpern (28) writes "The key to the difficulty, is that 
"respectively" is essentially a model, not a notational element; 
like a pseudo op in an assembly language, it is not so much input 
to the translation process as it is an adjustment of the translator, 
forcing it to operate in a special mode". 

Example 3. (67); 

TIME PLIES LIKE AN AEROW- 

Vfe instantly know the meaning but a computer may well 
conclude that there are timeflies who like an arrow, or that 
someone is being instructed to time flies in the same manner as 
an arrow would time flies. There are other grammatically sensible 
interpretations of this sentence as well . 

The "Concise Oxford Dictionary of Current English" 

(Powler and Fowler, 1942) gives as many as 4 different ways in 
which PEN can be used. In the first example given above 
the difficulty was of contextual natiire. Whereas in the second 
example given above, there, is a certain amount of amoiguity 
present. At present the semantic theory of languages has no 
powerful method of itself, which is a’ie to account for the exact 
determination of the meaning of sentences. 



APPfflDU II 


FILE 99 (tape 99) 


There are several occasions in the handling of data vdien 
reforiaating is desirable. Instructions using FOETEM logical unit 
99 provides this facility. The FOETEAKT.Eeadj ')^^ite Commands vdien 
performed on file 99, cause the transmission of data to occur 
l)etween memory locations. 

The BEAD and WRITE statements with logical unit 99 are of 

the form 


READ ( 99, Format ) List 
and 'ii/RITE ( 99, Format ) List 

vdiich are referred to us READ 99 and \WIITS 99 statements. Logical 
units 0 to 4 are attached to tape units. So, viienever read and write 
statements refer to these units, the data is read and written 
respectively from the corresponding tape unit. But the logical 
unit 99 has been created without any physical input-output (l/o) 
device attached to it. Thus a 'MIH'E 99 instruction merely transfers 
the contents of the specified lists, under the given format into an 
area in memory, v\iiere as READ 99 statement uses the contents of this 
area of memory to read data into the specified variables under the 
given f oxmat . Consecutive READ 99 statements make use of the same 
area of memory to form different lists lander several format 
specifications. Since reading from memory is nondestructive, 
rereading the same firea of memory is possible. This el imin ates the 
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concern for the user about REWIHDS, aiGKSPAGING etc. etc. 

Por this EEiiD, mTE 99 feature, a file PIL99 has been 
created, with no physical units attached to the file. (Deck P99,' 
IIT/K IBSYS may be referred). IOCS assigns b\rffers to this file 
at the tiiie of loading. There is no need to open the file for 
executing RE/D (99, n) list, since the reading is not done from any 
physical unit, but the list is taken from the buffer created in the 
R’fD routine. Likcvase to execute WRITE (99, n) List, opening the 
file is necessary only once in the begijoning. Changes have been made 
in the R'WD routine of the EORTRM IV subroutine library. A buffer 

BDEP BSS 22 

has been created. The execution takes the same path as in the case 
of usual I/O statements, but at each stage (opening for RE/D* opening 
for WRITE and actual transi'oission of data), check is made to find 
out whether the file under consideration is EI199. If so, the path 


taken is slightly different. 



APPSKDIX III 


LISTING OP LOGITPAg 

A coiaplete listing* of LOGITEilN is given 
in noxt and subsequent pages; on page 184 is 
given the listing of subroutine PATERN, referred 
to on page 55 of chapter III. 


^Because ‘)f the limtation of size of a page, only 
contents of columns 1 to 64 of a computer card can 
fit in. A prograui was written to punch conten so < 
65-72 as a continuation card. In this process a few 
words, here and there, have got split. Such cases are 
indicated by a "/" i^ colui'an6. 
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SiloFTC FOFTA'] 


C 

C 

r- 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


o 


i LOG I TRAN I 
I PROGRAM FOR CONVERTING I 
I logic I 

I OF A I 
I COMPUTER PROGRAM I 
I TO A I 
I DECISION TABLF I 
^ I 
I I 
I WRITTEN BY I 
I VIRENDRA GUPTA I 
I COMPUTER CENTRE » I 
I I o I oT./kANPUR I 
I I 
T NOVEMBER, 1969 I 
I I 


IfiTLGER BCDTAu (400) , RE , RETURN ,CA .HEADER ( 1 00 ) ,SUBTAB,ELsE 
iMTLuER RENTER (150) , SELF , SLASH , MAST ER ( 1 50 ) 

UATm SElF/4HsElF/ ,slash/ih// 

Integer numboe) , ending, t 
integer CC"'''iA,PLUS,F IllED.RETU 

ihlTEGER ALPBET (26) ,ALNUM(36) ,ANDD,BuF 78 ,BUF79 , BUFT12 ,BuF7 
/IG, 

1 Blank, Blanks, BEG IN, BUFFER (600) ,BRNCH( 15o,3 > ,BRNCH1,BRNCH2 
SBRI'CHS 

^,C,COL6,COL1,COL16,CONDSN(4C,7) ,COLS(80) ,CALL , ENTRY ( ISO',? ) 
/ , 

3LNTi<YS(7 ) ,ExENT (40,40) ,E0Z , EXCUTD ( 1 5C , 3 ) , EX I NT , 0 , DO , DELTRS 
/(5 ) 

IF YOU CHANGE DIMENSIONS OF EXENT, LOOKUP ooCMPLo, ROUTINE 
4,DLL .IT ,CTZ,GtZ,GOT04,GOTO,60TCLT,GO, F INAL , FOLLOW , FvALUE , 
/FAR'-aT(5 

4) , I FlEFT , index ,LTZ ,LEZ, list ( 40,40) ,L0G0PR ,0BTAI N ,0PRATR ,OP 
/RTRS(8) 

5 ,PREVCH,PP,EVN0{ 150) ,NUM6ER( 10) ,N(400) ,NcZ , NEED , RULE ,RETFR 
/'•■!, POET 

t \1 ,.u)WTA2, RESET, RANGE, ST0P4, STARS, STMNT ( 150) ,STOP, 

IF YOU Ct" \NGE dimensions OF uCDtAo, CHANGE THQSc OF «oNeo 
/ALSO 

7 GT , S T EP , S TMjNiNO , T ABE E , T ERM 1 , T ERM 2 , T YP E 

integer PERIOD .Equals ,orr , found .lqngexi 20 ) ,upl imt .order ,fu 

/L.’IRD,REM 

1 A I \1 s DASH ,PREVCu,DECKEN,DEkEND,RIGHTP ,G0AL , EX I TT 
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LOGICAL SUBDT,LOGlFO 

L;AT^•^ lNAf'TH,PLU5 jRGTURIJ ,RETU/5HI /Oo A,2H++,6HRETURN ,4HRETU/ 
OAF/ ALf^OET , BlANK»BLA,4KS»CALL/1HA,1H8,1 

/HC»iriD,l 

2i iL , ILF , IHG, IHrl ,1HI , 1 h J , IHK , IHl , IHM, IHM , IHO j IHP , IHQ , IHR , 1 HS 
/am aHU 

3 a.HV aHLMHXa'-'Y aHZ , IH , 5 H ,AHCAlL/, deltrs 

4 ,DlkLnL),UaSH,LO, NUHoER /IH, aHa aH( aH ) , 

/1H= !.6HDE 

- ,2H[JoaHi aH2aH3aH4aH5aH6aH7» iHaaHsaHo 

/ / » 

5 G0/2HG0/ »G0T0LT/5HG0T0( 

6/aFa:owEED<i OPRTRS /2HIF,6HNONEED,5H,LTc.O,5H«LEo 

/..*5LoEO* 

7v,'>5*aGE**u 95R(*GT uO >3ho|McLoO$5FloANLt> ^AhoORo / >STOPAj 

/ st/ahst 

BOP, 2HST/,AlNUS/lH-/,FARiAAT(l) ,FARMAT(3) »F 

/ARf’AT {^) 

0/1 H( »4HA6,AaM)/ 

OAT A G0T04aFLEFT/4HG0T0,3HlF( / ,EXITT/4.HEXIT/ 

UATA Cor.!UTN/6HC0MDTN/ ,RE,CA/2 HrE,2HCA/ 

DATA AS/2HAS/ ,N0T/5HoN0T<./ 

equivalence (COLMAjULLTRSa ) ) , (PER 100, DELTRS ( 2 ) ) , (LEFTP,0 
/iiLTRS( 3 ) 

1 ) , (KIGHTP ,D£LTRS (4) ) , ( EQUALS ,DELTRS ( 5 a aC,ALPPET ( 3 ) ) aD,A 
/LPBET (4) 

3 ) , ( L. TZ ,OPRTPS ( 1 ) ) , ( LEZ, OPRTRS ( 2 ) ) » ( EQZ, OPRTRS ( 3 ) ) , ( GEZ»OPR 
/TRS(4>), 

4( GT2, OPRTRS ( 5 ) ) ,( NEZ , OPRTRS ( 6 ) ) , ( ANDD,OPRTRS( 7 ) ) » (ORR,OPRT 
/KS(8)) 

EOUI VALEMCE ( T ,ALPBET ( 20 ) ) , (LOOP »UPLIMT ) 

LG^U I valence (R0WTA1,MCRD) , (R0WTA2,N0TAB2) 

CO,-:i ,.l;M//BRNCH, CO, MDSN, entry, ExENT,EXCUTD,RCRD,N,PREVNO,STMN 

/t,list, 

i -hlia ,LF ,lff, irules,rule,retfrm 
3 , header , SUbTAO , NOSTRO, EiNTRYS 
COFii'-.ON /RULES/ NUMB, ELSE, LOGDT,MOSUBT 
CONi:'',UN/S0URCE/bUFF£R , FOUND , I N I T AL , F I NAL , JPLIMT 
COFi" ON/DETAB/BEGI N ,GOTO ,STOP , STARS 

CON, I :cm/lookup/bcdtab 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



LIST 

and appearence of 

COMMON BLOCKS 


APRIL 

18,1969 


8 

20, 

30 


name 

length 

appearance LIST 

REMARKS 



// 

5870 

FORTAB 

'MERGE 

parse reduce 

C 

COMPUTE THE 

NEW LENcTH 

OF // and change Ifj parse and CO 

c 

rules 

35 

FORTAB 

merge 

Block 

c 

SOURCE 

604 

FORTAB 

REPLAC 

REPCOL SEQUNC 

c 



getcon 

SQUEZE 

getent putbrn 

c 



SEARCH 

NODLMT 

dtent 

c 

DET MB 

4 

FORTAB 

MERGE 

dtent block 

c 

LOOKUP 

2 00 

FORTAB 

dtent 


c 

OPS 

6 

BLOCK 




c 

C' 

c 

c 

c 

c 


c# 


C -if* 


•K- « «■ a ■« -x- * « * * * * -x- ■«■ •:;- * * * * * -x- -(f * * -x * * -x- * * * * * -x * * «• 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FEBRURARY 1969 

bimLnsions of the Following variables were decided more 

OR LESS ON an ADHOC BASISoIF MEMORY LIMITED, THE DIMENSIONS 
CAN L'L Cl IANGED ,bUT THE SAmE MUST BE CHANGED IN ALL SUBS® 

tiAviNG Blank coy,-.on> namely dtent, reduce, merge, parse 


DCDTAd 

BUFFER 

BRilCH 

CONDSN 

ENTRY 

EXENT 

EXCUTO 

HEADER 

LIST 

PREVlvO 

N 

STMMT 

ANY CI-iANGES 

are made 

IN dimensions of THE A 


I'^EmTIONED VARIABLESjScE THEIR lFFECT AT STATEMENT NOS 
99991 WHIlE INITIALISING IN FORTAB (MAIN) 

list and function OF various POINTERS 
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c 

c 

MMC 

value 

WHERE USED , 

indicatig.t 

c 

c 

c 

IFOLNnSD 

■j,100 

FORTAb 


after having got A SUBTABLE 

c 





AT 62996,90000 

c 

FOU''-'.;; 

(j 



NORMAL CARD 

c 

t- OU:v!J 

l-iU 



continuation card of an IF 

c 

FOUi'Uv 

u 

after search search FAILS 

c 

i-OUMU 

]OG 

AFTtR search search SUCESSFuL 

c 

Fouiir.' 

r 

SQUE2E 


IT IS A data or format 

c 





decleration 

c 

tOOkO 

1.0 

SQUEZE 


not A data or format 

c 

IHDL'a 

1 >2»3 

AFTER CALL 

TO PUTBRN 

c 

FOUl'iD 

V 

PUTBRN 


IF AN *AnD^!- or «'0'R«- with 

c 





*NOT-::- FOUND IN LOGICAL 

c 





expression of an IF 


FOUivD 

J JO 

PUTbRiM 


ARITH. relational OPRo 

c 

FOU'M.) 

1 '■ r: 

629 ETC 


subtable fori/ieDjNext card 

c 





HAS A BLAIK STmnTo 

c 

IQUI T 

]':'0 



matching extreme ) IS FOUND 

c 

1 ,3U I 1 

J 



expected am ,0Ro or AN oAND 

c 

LC''jI Fo 

true 

LObI cal 

IF 

same as 10UIT=100 


ITKf 

{ :• 



KEEP track of SUBSCRIPTED 

c 





VARIABLES 

c 

ITRt',^5 

b 



TERM2 IS NOT SUBSCRIPTED 

c 

lTRi'2b 

1''’0 



TErM2 IS subscripted 

c 

IPATH 

1,2 

USED TO 

CON 

NECT LOGiIFS AND GOTOS 

c 

IPATH 

C 

Clasfy 


character colic I.S A( 

c 

ipAlH 

1 uO 

ClASF Y 


character COLIO IS NOT A ( 

c 

^'PATii 

1,2 

clasfy 


DIFFERENT PARTS OF TREE 

c 

LbTCRD 

A ,100 

clasfy 


FOR LAST CARD AS AN IFIT 

c 





IS 100 

c 

i< L F T All 

c 

OUTPUT 


reference table not NEEDEDo 

c 

RLFTAu 

100 

OUTPUT 


reference table is needed 

c 

ISSTOP 

(J 

LOGICAL 

IF 

NORMAL CARD SEE NEXT 

c 

IS STOP 

I'.M; 

LOGICAL 

IF 

IF A CALL EXIT OR IF(XXX) 

c 





STOP IS FOUND 

c 

I STOPl 

•» 



IF oGT^ 1 MEANS GENERATED 

c 





STOP HAS already APPEARED. ONCE 

c 

RTE''P 

VP 

FOR TAB 


IN and ORS NORMAL VALUE 

c 

KTF'-P 

ICO 

FORTAB 


WHEN RELATIONOP IS MET 

c 





BEFORE 


SUbTAB 




INDEX FOR SUBTABLESo 

c 





header 

c 

SUbOT 

clasfy 

FOR NESTED 

IFS T/F 

c 

SUBDT 

PHASE2 

TO PROCESS 

SUB DTS CORROsP to GOTOS 

c 

(VOTCP 

C',100 

LOGICAL 

IF 

100 ONLY IF -if-NOT^- OP 

c 





encountereDoSTored in header 

c 

7. 

? 5 

23 

30 

38 A5 60 


C 

C 
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C 

c 

c 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

Iolo 3 


i02 

1^3 

C 

2 

3 

C 


1' 301 


PHASE 2 


I PATH 0 
iPMH 1 

HflSI:, r J 


P H AS c 2 
PHASE2 


NEW COMDiriOM 

Condition has already 

APPEARED 

keep TRACR of RO'.iS OF TABLE 
TAPt allocation''"""^'' 


PHASE2 


tapl unit 0 

lApL Of-' IT 1. 

tape unit 2 
Tape Ur ' it 3 
TAPL U.IIT 4 


listing OF SOURCE DECK 

TAULEI 

TABLE2 


UOUU if",] HARbL 


u/'LcSrcAripl?" 


I N _ c /\ S I,.; t. /\ E T I C u u P ,0 
Sf'L STArEEFNTS llO+ 6 j 7 SO 

/<■ M ■/, ;; )( .v. y^. v, v, y 

00 lwl,j3 1 = 1, luu 
REmTLrI I ) =0 
00 ID 3 RULE = l,i/; 

00 ii,.2 LLL = 1»10 


CAM b£ released, 




EXEi:T(LLL,RULE)=L3LANi<S 
LI SI ( 1 ,RUlE)=BlAMkS 
1 N I T I AL I S [;■ FOR SUDT AULES 
00 2 JK-l»<i6 

ALMU-( jk)=AlPuET(jk) 

00 3 JK = 1,1(1 

ALi\'Ui : ( JK + 2S ) =MUhBER ( Jl< ) 


L = 1 

■“ST ,'T = BlA';KS 
IFOU,\|D = C 

SEE 9f .».■( and 62996 + 2 
JPREV =1 

F0R'iAT(//lH ,36A3) 

- 1 = 1 

E J r/l Al = ’:. 

LCGIF0=, FALSE. 

Sudr t = .fal.sEo 
RO'a'I a 2 = 0 
L 5 TCKr=-t 
SUB r AR = v„ 

ISSTOP=o 

rewind 0 
rewind 1 
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RFWI 

i' i 

D 2 



K V I 

i V. 

D A 



f':0 r 

1 

2 3A K 


312 39 

■ iUFl 


( 1< ) = 

OLA^ip 


CARY 

r 

i\ ' =: i ; 

o 


ICC!' 

= 

1 



I STC 

o 

1 = 



PF. Ii 

T 

2 9 9 3 

R 


F.'Ji- . 


T ( I. H 



IGO^ 

L 

“ d 0 . ; 



CALL 


P:i/!rc 

0 ( I GOAL 


c \LI 


P IaiL.^ 

L ( FolLO 


H So 


.■i = Fr)LL Jk 

99 9 9 

iHiAf 


1 . ,co 

ls 

C 


L 

L DEC 

X I S P i: 

c 

"H.AS. 


^ L'OH, 

deck 

9 990 

:)0 i 

' ; 

K 

= ] ,.iPRE 

19 999 

i-.'JF 1- 

r 

p { <) = 

PLAriA 

99;9" 


V 




FOU,'' 





PIT'- , 





•OC ■! 

'i 

T= . 



CALI 


Lir'O:. 

CD( ^a ,.9' 


CALL 


L’l: 1. 

UL( 


> . C U T 


D< 'll ) 

= MLi 

99 0>,.I 

Fop , 

i\ 

T ( 1 H 

O u 

6 

FOP .9 

/\ 

T ( AS ) 


6 

F R '* 


T ( m6 ) 



DO 

V 

1 = 1, 

7 

9 

i-:ntr 

Y 

S { 1 ) = 

OLAPKS 

1 J 

FOP •. 

/\ 

T ( d A ] ) 

1 1 

Ton ) 

A T { 1 H 

,A3 ,4X , 


..RITL (99,10) (C0LS( I ) ,1 = 1,6) 
FOPI'.^T («X "I'VM ) 

..■t:AU( 99,6 ) DECKEN 
1 F ( uOCKcf'! ...cU'.Ui-KtMD ) GO TO 29999 


OOOOoOOCOO 


i-ACii P90ri-:;A|V ucCK MUST HAVE A DEKEND AT THE END , PUNCHED 
FRU i C0L.1<, THIS IS A CONTROL CARD FOR o«LOGITRaNo. 


C 

THE ' 

oemaihtng 

COLS.. 

OF THIS 

C 


COL 

10 

TA13LEA 

c 


COL 

20 

TABLES 

c 

c 


COL 

30 

PARSE 

s 


FOR PAPS 

IMG Oi'icY, THE 

c 

01 Til 

PARSE IN 

COLS 

, 30 TO 

c 

c 

TAbLi 

' TO HE PARSED 

I'M 5 A3, 

c 

0 U U t 

' X, i> w j M vJ 'J 

w i; u o N- 

■J 


Oui30Kt(ii^00009<JCfOOQ<tCOOOOO 


1 E ( Cols ( 6 ) o Nt ^ jlAM'K .> and uColS ( 6 ) <> Nt« MUMBEk ( 10 ) « OR oCOLS ( 1 ) » £ 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

9997 

C 

999 b 
99 93 
C 
C 

C * 

c * 
c 

C 

c * 
c *** 
c 
c 

196 

3t;o 


IQ.C) MM=BLANKS 
PRI".:! 11,NN»C0LS 
IF ( COLS ( 1 ) .EOoC ) GO TO 9999 
LRITF(.-,12) Ml , cols 
KOR/AT{ I5,3X,8UA1 ) 

IF ( COLS ( 6 ) oNtloOLANK* AnDoC0LS( 6 ) 
lu.i;. •) GOTO 9 999 

, the order, FOLLOW HAVE 

^UT ARGUMENT LIST OR I/O IS 
APPLAlUiMG CW^THE MEXT CONTINUATION CARD 

( 6 ) oNEo number ( 10 ) ) GO TO 9999 


“NEu NUMBER! 10 ) « AND»LSTCrDo E 


continuation cards WHICH ARE NOT FOR AN iS$ IF $$$ ARE 
MO I,'.TER£ST TO USo o <, IFoo CONTINUATION CARDS WILL BE 
DY A separate READ STATEMENT AT THE APPROPRIATE 
PLACE o look STniNTo 7b0 


OF 


CALL SQUEZF(C0LS,JPREV) 

IF ( FOUND* EO .0 ) GO TO 9997 

continue 

WRITE(99,10)(CCLS{I) ,1=1,5) 

READ! 99,5) STMNNO 

IF ( STnM, NO, NE. BLANKS ) GO TO 9995 

I F ( SUuDT * AMD* FOUND* EQ. 100 ) STMNMO=ITEMP 

FOR bLANK COLS* 1-5 ,WHY NOT KEEP AS CONCATNATED WITH S.NO 

FEd. 1969 


GC TO 9993 
^'i=f 1 + 1 

shall see if we ARE TO LIST IT OR NOT 
GO TO 9999 

CALL RFM'LBL ( ST MKMO , BLANK ) 

I'iST: MT = STMMNO 
UPLr 3 T = 6 
SUBDT=oFALSE* 

LEE comment after 62955 AND BEFORE 62996 
IN ITAL=1C 


■V: -M- * «• + 


■J!- ■)(•* 4 ;- -;;-*******■»**-)!• * -K- -jf-x- **> ***■?;■**■«■**■«•*■«•** * * 


CLASFY 


■ * -jf- i:- * * -jHi- * -K- * •!«• -x- <■ * -x- * -:«■ * * * * -x- + * -x * -jf -jh! -x -x * * 

THIS IS THE BbuINING OF CLASIFy , WHICH DOES CLASSIFICATION 
OF STATEMENTS 

WRITE! 99, 300) BUFFER ( 7 ), BUFFER < 8 ) 

FORMAT! IH jlAAS) 

F0Rr’At(6Al j 



125 


REAJt 99» 3 J2 ) BUFTB 

302 FOR.'.AKA?) 

C ThERc IS MO need TO KEEP $SDOTS IN THE IF EElOW 

C 9997 IS THE CASE OF SSOATASS AND $$FORMAT$$ DEClERATIONS 

C SEE statement 62996 + 1 , o o o + 3 

I F { SUuDT o AND . I FOUND* EQu 100 ) STMNNO= ITEf'-.P 
^ FOU^lD = ^.‘ 

if (>-JF78 -i^Q»00''OR*uUF78*i-QoDOoOR*EUF78oEoc I F * OR « EuF78 «EO • S 
1T> COTO 315 

1 F ( uUF78 0 EG * Re*ORo BUF 78 0 EQ*CA ) GOTO 315 
310 I F ( ST'-CVKOuEGodLANKS ) GO TO 306 

C THI;j V.'AY isOST OF THE DECLERATIONS WILL NOT GET LISTED IN 

C I i l ADLE 2. 

TA3LE=2 

ROv'T A2 = RQV;TA2 + 1 
GO 'to 316 
306 GOTO ^997 

315 TAbL[: = l 

if(iljf78.eq<.do) go To aoo 

C TriERu IS NO rlELD TO ROUTE IT TO 400 AS Do NEED NOT BE PROC 

C /f.SSED 

V,RITL(P9»3LD3 (BUFFER (K) >K = 7,9) 

READ ( 99 » 303) bUF79 

303 FORiiAT(A3) 

IF { LUF79oLQ* IFLEFT ) GO TO 500 
WRITE(99» 300) ( BUFFER { K ) ,K = 7 » 10 ) 

READC 99>3u4 ) BUF710 

304 F0P:'iAT{A4) 

3)5 FORAiATImS) 

IF { uUF71U..EQuG 0T04 ) GO TO 800 
IF ( HUF7lO<,EQ<,STOP4) GO TO 900 
IF ( DUF710«EQ*CALL ) GOTO 960 
UR IT E( 99, 300 > ( BUFFER (K) ,K = 7,12) 

READ (99,6) f3UF712 
IF (tUF7l2.EQ*RETURN) GOTO 940 
GO TO 31(. 

220 FOR'.ATdH ,7A6 »A6 ,2X ,8 ( 5X,A5 ) ) 

316 ::.iRMCHl = DASH 
(iRNC! i2 = DASH 
BRNCl-!3 = DASH 

LSTCRD = v M. , : ^ 

-.RI TE ( 2 >319 ) (BUFFER ( I ) , I=7>42) , NN , STMNNO , BRNCHl , BRNCH2 ,BR 


/MCH 3 

319 FORiMMT( 36 Al,A 6 » 2 X, 8 ( 5 X,A 5 ) ) 

320 FCP -iAT ( 7 A 6 ,A 6 > 2 X , 8 ( 5 X,A 5 ) ) 

321 'FORMAT (IH ,bOAl) 

a = Ml + l 
GO TO 999 ? 

C «• «• it- + «■ it- it- + * * * + + + + * * * * * 

C * 


* -5{. -J}- -Jf -!f- -X -!{■ -if -K- -if- -If"!?- +•)(■* + ■}<• ■)<■)(■■){■ -Sr# 


c+ 


c * 


PROCESSING FOR DO 



n n 
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■ye a -k- * ■> >;• •)!■ 4^ ■:;• if- * ■;.- -> 4f * •;;■ * -k- * * ^ ^ ^ ^ .;/. 

uO -LD r'OT bi_ P!?OCi£SSi:Di CHANGING 
GOTO 316 
40C GO TO 31': 

C SEE i' OTE ;^LFOKE AGO GOTO 316 

A JO pRin -t 3 3 ? { buffer ( I ) 5 I =1 , 80 ) 


*** 44- * -it- ******■«■*■«■ 4S- **■»•*** -if- 

400 INITAL=9 TO 400 


LOG 1 FC--^ .FALSE u 


GUb T)! = . false « 


IPA1ii=2-'0 

C RESi-T All prURTEpS 

405 Foil-. AT ( ll-l »A5,*THE following STATEMENT SEEMS TO BE WRONG I 
SYNTAX 

^ 0^;* IT HAS TOT BEEN TAKEN CARE OF IN THIS IMPLEMENTATION*/ 
/IH »8.)M 


2) 


M 1 = !•' 1 + 1 

CAPYi.'M = 0, 

LSTCrO=" 

GO Tj 9VVy 

C ** 4; •!! <■ ■;;■ '(■ ::•« 4;-*-;; if 

C 4* 

C * PROCESSING FOR AN IF 

C * 


C CLASSIFICATION OFIFS 

c 


c 

c 




c 

IF ( XXX 0 OP., XXX) GO TO NNN 

TYPE! 


c 

IF ( XAX-XXX ) NN »NN,NN 

TYPE2 


c 

I F ( ) (X ) f ■! »i*N »NN 

TYPE3 


c 

IF (XXXoOP„XXX ) EXPRESSION 

TYPE4 


c 

I F ( XXX ,OP.XXX ) call sub 

types 


c 

IF ( XaX»OP«XXX"ANU„XXXoOPoXXXc „ 0 o ) 

logical if 


c 

IF(XXX»ANU»c,NOT<,XXX) 

LOGICAL IF WITH 

NOT 

c 

IF( u NOT o XXX) 

LOGICAL IF WITH 

NOT 

c 

IF ( KaX) XXX 

IF OF declared 

logical 

c 

I F ( XXX»GT oXXXo AND.XXX ) XXX 

IF Or declared 

logical 

c 

500 

INI TAL = l':'' 




LSTCRD=liA' 

jpath=o 

IPAl li = 2Lu 
LOClFO=<.FALSEo 
ijOTC P = '^ 
bRi\iCHl = 8LANKS 
(3 RNCH2 = BLANKS 
UR,mCH3 = BLANKS 
RULE=1 
NOOFQP=0 
NOCC'NT = f' 
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IROl rE-200 
Tc^!•.l=P•LA^'K3 
TEP ?- JLAr 
OPnATR=BLAKKS 
l-LL = l 

DO i l.-•.= l,7 

5 C DO f N T ■ Y S ( K ) = RL AiSK S 

c ILL '-111 dlCi^w the Conditions in a logical if containing 

C 

UPLJ T-03 

c .'F lTATLLLYT 5,TAPTING VJITH COL = 7( BLANKS SQUEZED OUT) CAN 

C HAV.- A i~,AX- OF 63 CHRSv UPTO ) ,IF IT DOES NOT HAVE CONT- 

C '•.UA' JO,. C,',RJ CONTAINING A PART OF CONDITION 

ISTaLT=10 

call Oi-TLiUI LOf'GEX »r,AXf.lOP ) 

IF (M U.jD.EO -0 : GO TO 750 
JLI:FT = INI TAL-1 

^ — 

c 

C VHOUoti A Wt_LL FO'^:ilEu EXPRESSION, THAT IS MATCHING 

C PAR/ NIHESIS FOUND, YET IT IS POSSIBLE THAT A CONTINUATION 

L C/aPw may lit THdRE^Wt ARE PERTICULARLY INTERESTED IN GOTO 

C OR CALL OF AN IF MENTIONED NEXT CARD 

^ 

IF ( ( r Ii\,AL + l+4) «GToJPREV) GO TO 50520 
C 

501 I JKPr-;E = F TfiAL 

INITAL=F1NAL+2 
C ADD IT ION AL P'OR ) 

501 )t, IMPLS3=INITAL + 3 

■YRI TI (09,300 (BUFFER(K) ,!<= I N I TAL , I NPLS3 ) 

RFAiM 90,304) ORDER 
I F ( 0 i> 0 E R » L C V G 0 r 0 4 ) T Y P E = 1 
IF (ORDER. EO-CAll) TYPE=5 

IF (0RDERoE0«CALLo0R»CRD£RoEQoG 0T04) GO TO 50010 
IF(0,RDERoEQ.Sr0P4) GOTO 5o318 
IF(ORDER.EQ..RETU) GOTO 50517 
50516 UPLl:''iT = 6 

CALL SEARCH(COi-'i''.lA,NUvlBER ,10 ,BRNCH1 ) 

IF(F DUND.FOoQ) GOTO 50519 

TYPE=23 

GO TO 302 

5 0517 INPLS3 = I NPLS3-^2 

V‘RIT!:(99,300) ( BUFFER ( K ) ,K= I N I TAL , I NPLS3 ) 

READ(99,6) ORDER 
IFIORDEIUEQ-RETURM) goto 50518 
GOTO 50516 




L- 0 5 1 b T i' P L = 4 

FC'_L:'A'= I 

n y -.(7 ) =cpr;LR 
C,0TO 5 '^2 
5 0 til 9 TYPi—^ 

FIM YS(7 ) = IJAPT!-. 
rOLi. *./'■'= star;'. 

C O 'I A 

5C52.: FOU. iJ=liL 

( l"A' ln,rr:L"' 

C i‘. F. /. A r- :■ Ol-.A ... L L, COM T I F DAT I ON CARD 

1 F ( COL ;j I H ^ Ft'.. OLAi\!;U0:v<,C0LS ( 6 ) ^tOoNUKOhR ( 10) ) GO TO 50525 
•.:RnL{.:»i2) 03 »C0LS 

5T522 FORiAldH ,*IT IS A COOT I MU AT I OM CARD OF CArDN0=*,A6) 

CALI .jOUEZL (COLO » JPRFV ) 

(-.0 TO sol 

5)525 'RI T" 10 ) COLS 
C IT Is .F)T A CO IT 1 FUAT I OM CARO 

.Fl = Nl + l 
C.cTOAOO'H.' 

5'''524 ISSrcp=lof 

FOLLC.U= I OhJod 
GOTO J.-2' 

50526 cNTR YSC6 ) =CALL 

FNTF'Y.S{ 7 )=rOLLCv; 

GOTO 3', 2^ 

500 U' IMIT/',|,.= I -•'T LSS + l 
UPL IgT=6 

call SF/RCH( flank, AlMUM, 36, FOLLOvJ) 

c ii.j TFi<: c/\sL or iFiu.o) Call suo(oa) slarch viill faiLoSO 
C /DO liF 
C 

I F ( I UUMO u cO . 0 and „0RoLR . c.Q« CALL ) CALL SEARCH ( LEFTP ,ALNUM , 
3 36 ,FCLL0’,') 

502 FI|V/'L=I J,;^pF 

1 F ( O.sOcR c £Q oSTGP4 oOR -OROER cEQo rE TUR M o Ok u ORDER o EQo CALL oANO 
IFOLLOWoEOoEXITT ) GOTO 50524 
5('527 IFCJRDER.FQ.CALL) GOTO 50526 
5020 IMITAL=1C 
C 

C IF( -..!OT«.XXXXXXXXXXX)XXXX 

IF (i JFFEr( lOl vLO;,phRIOLyuAf\lDaOUFF£R(ll) uEOoALPEET(14)oANDob 

/UFFf'.K(l2 _ . 

1 ) « 1-0 r .\LPljLT ( 15) t and u uUFFLR { 13 ) o EQc. ALPUtT ( 20 ),= AnO o bUFFER ( 1 

14)„i:a„ PERIOD) GOTO 7891 

c 

c 



5j21 


76 91 
C 


C 

c 

603 

C 

71 ) 


503'» 


C 

c 

C'i- ti -X- 

c 


c 

c 


c 


505 

c 

c 


IF(i. \X''uPoLT»2 ) 
I'.O TO u T'' 

;v0T0P 15 POIOTFR 
P' I TAL= IPI TAL + 6 
goto 5'- 3 . 


GOTO 503 


FOR iPOTTj 


operator 


co-r nui: 

!■ GTi.!' = ^- 


liJIlIALIi-i: T'OTwP FOR REXT ITERATION 
j=ii*'nAL 

IT ( i-Ut-FLr ( J ) -LO-PcPiOu>.ANDabUFFER ( J+1 ) ofcO.ALPB£T( 14) oAfsiDoB 
/UFFO'M J+ 

) «LO-ALPoE^( 15 ) , ANO-oUFFLR ( J+3 ) ^E0.-.ALPb£T ( 20 ) » AND « BUFFER! 
lJ + 4) .FQoP’^P 10!)) goto 7891 
C A I . L E A R C il O’ E R 1 0 D , A L N UM , 3 6 » T E R ,'■■'! 1 ) 

IF < FOUMD«ro„.: ) GO TO 550 


I fLi pi = T,:o-a 

5AVL TERT LlCAUSE IF NEXT SEARCH FAILS TflEN CONTENTS OF 

Ti:(o-. ::.h('uld :.iuT get clobbered 

ir I.'’AL = 1- INAL 


CALL 5^ i. A ; ' C H { i i N U S L hiUM , 3 6 j T E R M 1 ) 

IF { f OUNLPlO-IjO ) GO TO 552 

THIS IG FOR A CASE LIKE IF(35o23-A) 10»20,23 

OLE Erv'^'EMT AFTER 575 
TCP! 1 = 1TF(-'.P1 


•X* :i 




■ -je -x^ e -)?■ * -i:- -x- -X- -Jc -X- -x -x- x- -x- -x- -x- -x- -x -x- -x- x- x- x- -sX- -x- -x- -x- 




TYPEl IF 

i:- » •!! ■{«• * -K -x- x- -if- x- x- x- x x x x x- x- x x x x x x x x x- x x X x x x x x x x x x 


IYPL=1 
uplI'':t = 5 

this 'ILL COVER AND ALSOoDOES THE UPLIMT REALLY MATTER, 
OCA.vNING IS FROM LEFT TO RIGHT, SO SHOULD NOTo 
INlT..',L---IFINAL+i 

CALL SLARCH(PcRl0D,ALPBET,26,0PRATP ) 

IF (FOUND oEQ.U) GOTO 570 
INPLS3=IMITAL+3 

IF ( LiUFFLR { I N1 Tal+1 ) oLQxALPBET ( 1 ) ) I NPLS3= INPLS3 + 1 

THIS WTuL TAKE CARE OF AND OPERATOR 

V'R I IF: ( 99 , 3n0 > ( BuEEER (I > » 1 = ^ N I TAL , I NPLS3 ) 

F'^EADt 99, 3u4 ) OPRATR 

IF ( .BUFFER { INI TAL+1 ) -EQoALPBLT ( 1 ) ) READ (99 ,305 ) OPRATR 


ImITal=FInAl+1+1 

LAST VALUF: of final IS UPTO AND EXCLUDINo c OF 


o OP o 


ISTr.\! = 595 

i^ELcTE the ,hP0VL COiiRILNT CARD IN FINAL FORM 


UPLI.1T = 6 


J=I ;'I TAL 

j j * ^\} ^ 

CALL PUTBRN (OPRATR , FOLLOW, BRNCHl , BRNCH2 ,dRNCH3 , NN ) 



c 

b C b ■: i 




c 

c 

bOb(j 4 

C 

c 

c 

505 w3 


bObub 


bOb 1' 


C 


b(i 6 C 


C-;;- -it ■;;•»:■ 
C 

C •» # ■!! 
53701 


IF ( F';JMUc;:.G.. 1 " 0 R^F 0 UnD„EQo 2 ) 
I F < :'UriD u '■^0 . 3 ) GOTO ^3 0 
CALL SbOU' C LCi\GFX s' i » jno£\/ ) 


GOTO( 781 9782 ) » FOUND 


1 ( LO'-' .jLX ( 1 ^ i-'-J oP I -v.! iTp^ORo LONGEX ( 1 ) ^ Eq u PER IqD =. ANDo LONGEX ( 2 
1 ICilTP ) GOTO '3:.b01 

^tF(l >■ Cux ( U o LuoPbr' lOiJ^AND.LONGEX (2 ) oEQoPERIOD) GOTO bObO 


COT'' i' { 

AHi. Ill i!.'Lij;u,_ '.ages uherl + sign Is used Inside an if 

LOGiro^oT.'.u: , 

iRu.'-i:-i 

lAI SEARCitf':' Ii;HTP»AlNUI:,36 5 TEPO 2 ) 

CCT^'. ,’bL 

LOG i f c = « FAL sr V 

IP GUI '■•-■2 

C A L I, G i; A, C H ( P E !\ I 0 u > M l f .! Ul'1 , 3 6 > T E R M 2 ) 

IF ( ...,.FF L; ( F InaL +2 ) . Nu v, ALPULT ( 1 ) AMU. buFFcR ( F INAL+2 ) ®NEeALP 
i ’)LT(Ib)) GOTO bob '13 
GOTO bob] » 


I H'' I ?•/'! +1 

Tiil'j I, '5 TFu C/»SL viHuN DECIMAL PT.' DOES NOT HAVE NUMERALS F 
/CLLCP 'IMG 
IT 

GOTC bP) 3 jb 
i SAVcr I N I T AL 

IF(uUFFLIMFINAL+ 2 ) oEQwPERIOD) GOTO bObOA 


CALL SEAf'CH (PER IOD,NUMbER, 10 9TERM2 ) 

■•R I 1 !.;( 99 . :U'0J (ulJrFER ( I J) , I J= I SA VE , F I NAL ) 

PP AO («}<;,(-, ) TERM? 

C;OT() 505 10 


IN I I'AL = F IMAL+2 
IuU{T = r. 

TTRi,2S = J 

Ji-L..iL T.l.St UE. ITRi.12S AND IQUIT IN FINAL FORM 
IF(:..Ui.DT) GOTO 78G 


-•.LR>.' DY DRAMCHC.S HaVE uEEN FOUND 
IF(Oin:)EPoEOoGOTOA) GOTO 509 
IF (ORDER oEO <, CALL ) GO TO 503 

I." (O''DERwL0wST0P4.0Ro0RDEr«EQ<.RETURN) goto 780 

.V j' *4 ; ,V. M y * ' A*. L *' )(. -Jt -Jf -X X- *X’ 'Jv- -Jf -it- -)(' ')c “Js" 'A -K' "Jn -A* "A Tn" ^ 

TYPE4 IF 

: ; ■):- .. : •); :: ;; ;; "■ •" « * J® * * ■*!- ■*■ # * ■*<■ -if -s -Jf * ■);- -!<• * * 


DRM(, i |1 =STARo 
HRMoPi2 = STARS 



c 

c 

c 


13 07 n' 


c 

‘j 070 

c 


bos 


C 

C 

C 

c 

b 09 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

b 6 u 


c 

c 

b60l 


rYP';='=f 

i:rjTRY0(6 ) =CPRATR 

THIO WILL HLLP FOR IFS HAVING A SINGLE CONDITION ONLYo FOR 
/ SU-LTS 


(LCriJT) IT i-.'ILL NOT SERVE ANY PURPOSE 

!3Ri\’CH3 = STARS 

GO TO 7S',- 

IPATM=li!3 

J=Ii'!TAL 

ASSIGN SC 3 TO LOG IF 
OOTOt 7M1 ? 78? >7ba ) , FOUND 

Ifil.'i -JILL Take Care OF CAScC LIKE I F { A^OR a /AND/NOT o8 ) XXX 
I TE, H= I 0 ..GIT 

bu7.- iAY have to be uELETED IN THE LONG RUN 
TYPE- AS 
"•OTC 7 P,r 
fYP! =S 


IF (F (.LLOlf „>"Q, iojiaas) GOTO 780 


• Y ' e'i l:i:CAUSF- OF CAuL EXIT FOLLOW =88888 
viO T O bP / ■ / 1 
CHECK UP IHL LOGIC 


j; » ■! 1 •* V. ;'<■ ■: 


• •; -x x x x X x<- x- * x- x x X x X x*- x x Xr x x x x * x x- X x x x x x x x x * x x 
REST OF TYPEl IF 

' X X X X X X X X X X X X X X X X X X X X X X X X X- X X X X X -X- X X X X X X X X X X X X X X 


COM I I NUE 
UPLI;iT=8A 

iN M typea if,vie can have goto(xx,xx,xx)=xx o = IS at 2 

/A 


COKPUTIT) and ASSIGNED GOTO ARECALSO POSSIBLE 

Call .SLAr.’CH(LQUALS»ALNUM »36 -.GOAL ) 

THf; AeoVe Str^K'CH sEcMS ILLOGICAL 


IF(t-OUMDoLQ«luO) GOTO bG70l 

IF(nUF'Pi-R( INITAL + 1 )>-EQoLEFTP) GOTO 0-00 

call SL/cRCH(CO OTA, ALNUr;,36» INDEX) 

if" ( F OUMU 0 LO o 1 UU ) GO TO, on 000 

IF (EOU.iDof OoU) GOTO 780 

GOTO 00701 

aCTIOP will me TO GOTO TABLE CORROSP- TO COMP <= GOTO , SET POI 
/ M T E t\ > 

IT blZFORE ENTERING LIST 
EMirYSf 1 ) =STOPA 
.:N7I:YS(2 )=SLASH 

:.:ntrys(3)=returm 

V''£ Ll'iTER 060 FkOMi bb99 AFTER ENTERING PHASE2 AND LACK 

TO PHASE 1 

DO 96 01 KL.'''1=A,7 

LNTRYSIKl N)=BLANKS 

r'!NN = 90 iy 



C \ L L r» 1 1' 1 1 , C D { , N w ) 

Cf> *.L f^i; - LbL ( r-': » NUmoER (10)) 

c 

C i:>TC'R V [ LL Ut A G£r-4CRAT£D ENTRYoWE ARE SURE THAT STMNNO 

C LAW .'••'OT APPEAR I R a STATEMENT .BECAUSE IT IS NOT ALLOWED 

C BY F<)RTRAr'-IV„ 

C 

C .euo T'O » YOU 'lAY HAVE TO CHANGE IToo 

C SIMILARLY ,\.; = 4uC IS An ASSIGNED VALUE 

C 

(- 

Mr f;o= I tfmp 
.PNCH1 = DASH 
i'RNCl;;? = DASH 
L'.pf)LH3 = r)ASH 
1 SSTlp = ^ :• 

GO TO o'3 2 
3366 Nl= H-1 

c ;>!! LmS I NCpt ^iIM.!7ED uUT HERE IT IS NOT NEEDED 

GO 10 9990 
3377 K0U’'J = 2 

CO Tc 339/ 

33 86 FOUfvD=l 
3399 ITF.',P = iaCAi;8 

GOTO 360 

C ^ ^ ■" ■?: « :: :■ JUf ■» -n- k- «■ -x- 5^ * •!«• ■» «• -> x- -» x- <4 ^:- * * * * -x- * * -x- x- -x- it * «■ * * •«• 

C TYPE2 IF TYPE3 IF 

C * * X ■; :• •;; » i' * * -r k k -x «• x •«• * k- •;!• -x- •» ■> x- * x -x- -x * x -x- x -x x * -x x * x -x * * -x x x- x x- -x x x x * x * x x 

550 call SEARCH(MlNUS»ALNUr'l,36 jTERMI ) 

IF { FOUND. LQ.O) GO TO 37C 
C IF 3 70 MUST L5E TYPES IF 

532 TYPE =2 

I MI rAL = F INaL+2 

C JMF IS N OR'^L AMD THE OTHER IS FOR - 

OPRATR=DA SH 

CALL S E A R C H ( R I G H T P » A L N U M , 3 6 » T E R I'^i 2 ) 

IF ( FOUND. ro.O) GO TO 480 
C CHECK UP SYNTAX 

LOGIFO=oTRUEo 
333 IMTAL = F INAL+2 

IF (f JFFERI INITAL ) «EO..EGUALS) GO TO 310 
C IT I'.UST BE SIMILAR TO IF SUT NOT AN IF' 

Call SEARCH(COC.9A,KU;'-n.'ER,lO»i3RMCHl) 
lNnAL = F INAL+2 

CALL SEARCH! COMMA »r'lU>ibER, lO »BRNCH2 ) 

INITAL = F INAL-t-2 

CALL SEARCH! BLANK U'lUMBER, 1C ♦BRMCH3 ) 

IF! JPATH,-0„i) GOTO 632 

C THIS WILL HELP FOR aR I THMAT I C ExPR- OE ^T THAN 6 CHARS o 

LOGIFO=,TRUF<. 
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GO TO 780 
CMT..‘Y 5 ( 1 ) = TFR,U 
i-Ntr Y 0(2 ) =D« 3 H 
tclTPYSO 5 =TE:R ’2 
LMTi’Yd.LL >1 ) = T£r :.1 
rOT;- Y{LLL, 8 )=TERR 2 
UlMTRYtLLL »2 )=DASH 
IST (<-=056 
iOT’ ' T = 55 G 

IXFf T (LL..-.nULF)=OPRATR 
f-GTC. 568 
3^7 i;MTi.‘Y:,( 1 ) 

I. ST, i: = 65 7 

J. 5 Ti. MT = 567 

I nRYr.( 2 ) =BLAr:Ks 
':r‘r«Y(LLL» 2 )=BLAHKS 
f.f'- ff f (LLL )=bLA^ KS 
Lr4TKYS{ b ) =H.LAi*:K«S 
fGMRYfLLl. ,1 ) = T[ RMl 
HLLL *RULF; ) =7 

C T'-ilS IS TOL', Case Of- OF AN IF riAVlNG DECLARED LOGICAL VARIA 

C /bled 
558 I PA 1 1 '"5 
5582 t. NTRYMA) sBLANKS 
ENT nSI 5 ) = BLANKS 
ENTRY (LLL vA )=BLANKS 
E!UE;Y(LLLt5)=BLANKS 
LOGif 0=0 TRUE o 


ASSIGN 6 -.3 TO LOGIF 


GOTO G29'V-i 


C ^ *X’ '(> 'II' ii I,' 'll II' • 
C 

c 

C. It 'It r, ;; u ;; i: 
570 call 


'! »»"!!■ 'MI- i: It -It 11' il' i: ■>; ll Itl;''t^^t•lt•X■K'^t•)I--;(''rc•l;•«■!t'i^'■X■■!;•'')I•■it^I•■I<''''l:-*■^I■"^t■l^•«'-)t•St*•it■^f"i^■*■5t-l(-'!t-)t 

TYPES IF 

A.ND logical type 3 IF 

11 It It i: i; ii it n j; «■ it it n it -it -i: -it 'it It -li' 'it -it r, ■)( -x- -x 'it -it 'it 'll' -x- <- -it ■K"K"I;- -it * -it 'll- 'it -it it -It •st * 'it -it 
oLARChlR IoHTP»AL''IUN,36 sTEpNl ) 


IF (Flung. go to 576 

IF (N'JTOPo 0 ..l; 0 ) GOTO 5762 

IFILPiCATRcEQoAi'iDDoGR.'OPRATRoEQoORR) GOTO 557 
ENTiv>YS( 1 ) = TERiU 


IF(LLLoNE. 1 ) GOTO 557 
IF(TYPE.EQ, 3 ) GOTO 792 
IF ( TYPEoEQcAoORoTYPEoEQ.S) GOTO 792 
C THIS L'lLl TAKE CARF OF LOGICAL NOT OPRATR 

TYPE =3 


GO U) 555 

C TO (.FT THF BRANCHES 

_ 

this is the CASE OF ARITHiMATIC IF. COMPARISON IS DONE 
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C 

C 

C 

c— 

c 

c 

376 


V'lTt-i Et>S I LCiJo TEST FOR oOTH 

THUS ,iJLL TAKE CARE OF CASES WHERE 

CHARACTERS 


TERM IS LONGER THAN 6 


,..1LL WRC OF CASES WHERE TERM Is LONGER THAN 6 C 

K 1AK= ( IJKFIN-IMTAL + I )/6 + l 

jPAT:i=l 


FlflAL =IJKr>Rr 

3760 DO ./61 I = 1,<'.;AX 
37Gi i'NTi.V.SI I } =LO.’ir,l:.X ( I ) 

00 T ” ( 6 S 0 » 2i) , JPA TH 

C 

576? Entry:,! 1) =,\jOT 

EnT:YS( 2 ) = TrR/l 
INTKYS! 3 )= BLANKS 

Entry (LLL ,3) --blanks 

LXf- MT (LLl .RULE) = T 
LflT' Y (I L l, » i ) = .'''GT 
LNT: Yd LL .2 ) = TLR:'1 

1 ST: ,. . = 376? 

JET, '7 = 3 762 


IPA^ H = A 
(tOTO 3 36 2 


C 

c I'ESTM^ 

C 

C« » » ■?: r •;! ■; 


LOGICAL IPS -^IITHOUT EXTRA ( OR ) 

a: y, # ;(■ : <r * ■> •;{■ s -K- x « # At * -re -if •» -if- *<-*■«•*****•»• -K- ■!«• * * 


600 IF ( ..NOTvSUBOT ) IMrTAL = 10 

60.):) IF ( '.'AxHOPoGTo n GO TO 680 
GOTO 303 

C FEB,, 13,1369 

this is to TAKE CARL OF AMDS ETC IN LOGICAL OPS 

(3 

C 

c THIS PATH FOR STATE.HL'NTS CONTAINING NO ( OR ) , NITHER 

C FOR SUljSCRIPTEO VARIABLES MGR FOR THE SAKE OF CLARITY 

C THE CHARACTsR SET WITHIN ( ) IS MORE THAN A2 CHRS. 

C 




623 CALL 5EARCH(PLRI0D,ALNUM,36,TERM1 ) 
JSTr'NT = 623 

IF {FOUND o[ r,'»0) GO TO 480 

IF { { F INAL-INI TAL + 1 ) «GT.6 ) 60T064C10 



C TH I , ,, I L L OLAL WITH CASES LIKE LC+ICC+2 IN TERM 

C ^'AT - CARL rOLLO>.S 

C iF (;„-:,CT ( IClj) i„MNt<«KOCT ( ICD+3 ) -EQoIOcANDoLC + ICC+ZoEQo I E 

C /.'.D) 

t2o INITAL=F INAL+1 
I NPL I N I TAL+3 

IF ( INI TAi_ + l ) vLQuALPOETd ) ) INPLS3 = INPLS3+1 

..Rrr<.(^^9,Ti u) (bUEFERI I ) ,I=INITAl,IMPLS3) 

:.?!-:AU« ^’9»3 4) OPr.’ATR 

IF (.,,Ul-Fi.R( iNlT/-H. + l ) >-Q.AlP 9ET(1 ) ) READ (99, 305) OPRATR 
iNlT.\L = d r-L^i'i + I 
J= Il,f TmL 

C TFilO '.;ILL oL L'^Tlr USED uY 761,782,788 ETC IF NEEDED 

CALL SL aUKH ( R I GH T P , ALMUM , 36 » T ErM2 ) 

I F < F C}U>v«J« Eo - 1 vO « And. ( F I NAl-INITAL + 1 ) oLEo6 ) GOT0650 

C 

62u CALI SFARCH(Pf7<lOD,AL(MU:1,36,TERM2) 

IF {FOUNO»':0«D ) GOTO630J 

C oUCLSS IK finding inuicates nested logical if 

C 63(:.- lUGT I,.L DUE TO CASE IN WHICH TERM CONTAINS A +,- SIGN 

C AND 'D ( OR ) 

C 

63(^ ASSIGN 5( 3 TO LOG IF 

C FED 18,1969 

C 

J S T ‘ T = 6 3 
1ST' r; = 6 3 0 
GOTO 62 9 on 

C IT ,.,uST -5-:: DUE TO LOGICAL EXPRESSIONS CONTAINING S5AND,0R, 

C /lOT 

C 



C 

c nested LOGICAL IFS 

C FED, ,1969 

C 

C 

c SUCt-SS IN finding indicates NESTED LOGICAL IF 
929 LLL=1 
rl'JLF = l 

6290- FjvTNYCLLL ,1 ) = TER,-il 
r-OTNYILLL ,2 ) = 0ASH 
FHTRYILLL.S > = TERH2 
FFsT ■:Y(|.LL,4) = DLANKS 
CNT'^Y ( LLL *5 ) = ULANK9> 

62905 .':XE:.:T (LLL, RULE )=OPRATR 
JST, :«iT = 62'.''i'D 

G29c6 IF(LOGIFO.AImD.LLL.EQoI) GOTO 62916 
C SEE note AT 62950 

SUbDT = ,TRULd 
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C 

C 

'3 291 ) 
C 


6291 b 


76964 
62 117 

C 

}10 

C 

C 

6292 ' 

C 


029 6 ■ 
C 

C 

c 

c 

c 

c 

c 

c 

c 

62991 

C 

c 


c 

c 

c 

629 63 


IFa.iriFO) GOTO 6^960 
IF ( IPATH.FQ.A ) GOTO 62917 

IpATf-i = 4 IS fCa IPs CONTAINING DECLARED LOGICAL VARIABLESo 
jFE 7E15 ) 

IN IT HL =11 JAl + 1 

1 F { ■ UP FLk ( I K I T/'L + l ) « cQoALPbET ( 1 ) ) GOTO 62920 
FAIL URL IS FOR TSOR'i? 

If PI S'l=IMTALi-6 

i. <I It. (99,7: ,j) (oUFFERdO ,K=INITAL,INPLS3) 

'IF \w{ 99 , i',4 ) LOGOPR 

RULf =kULfr + l 

IMI I AL = I'-'!'LS3 + i 
1ST' '•'== t»2916 
LLL=LLL+1 

UOTf. LCf.IF (69 j,4.;3) 

IFd' RAi R., LPoO' R ) PUlE = RULE+1 
1*0 TO 0/9 14 


LOG ! rn= .falsi: « 

IF ( I PATH „,■• (: ,.4 ) IPaTH = 3 

IPAli’ =9 FOR A SNOTS OP. 

roiO o 2 6 9 '. 

. l-P't.:;i.: GOhVG TO 662 ,MUST RESET L0GIF0 ,A;n1D CLEAR LOCATIONS 

I PPL:-, 6= IMI TAL + '^ 

this path P(DR Ll-Af4Dj>6 OPRATOR 


..'RI 1L( ;9,:p.:9> (BUFFER(K) ,K=INITAL,InPLS 3) 
fiOTO 0/916 

.-OST U = LLL 

iOSlFO IS NO. OF SUBTABLE ROWS 


JUT A!i + 1 

IhLP*. IS M SLK.riT DIFPcRENCE THE WAY THINGS ArE DEALT FROM 
L,63-»..‘ and 625 . FROM 625 WE GET TO 629 ONLY IF oANDojoQR. 
IS FCAJMD I UT for 6B360 THAT IS NOT THE CASE, 

SO IF LOGIFO IS .TRUE. AND 

LLL=1, WE MUST PUT IN MAIM TABLE !,£. ROUTE IT 652,653 ETC 
uLPORF GOING TO 652 ,yiUST RESET LOGIFO 
SL£ CONDTTION TESTED BET« 62905 AND 62910 

ipulf:s=rule+i 

+1 TO take care OF Else rule 


READ 1C, COLS 

IF<CC.LS(1).E0.C) goto 62951 
IP'CS’I.'mENT the card serial NOo 

10 ,'li.LD at 62992 ONE KEEPS FOR GOTO 633 »653 j65/ 
REAl. SA.-iFlE deck next CARO TO FIND COLS 1^5 
;RI if ( 99 , 1C ) ( COLSI I ) , 1 = 1,5 ) 


READ (99, 5) I TEMP 

OLE IP STmmT has a NON ULANK CHARACTER 
l.-{ I TEMPuEO. BLANKS) GOTO 62995 
CCLS 1-5 APE NON BLANK, BUT THERE MAY BE 
SO < \LL REMLBL 
00 0/96C- I = 1»RULE 


preceding blanks 
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62960 LIST(1,I)=F0LL0W 

LIST (1,IRULES)=ITEMP 
IPATH=1 

C IPATH=1 UTILIZED AT 6532oTHIs IS TO KEEP TRACK THAT CARD 

c /already 

C READ 

C FOR IPS IPATH=1,F0R GOTOS (ASSIGiMED AND COMPUTED) IPATH = 2 

C /(8700) 

C FOR AN IF HAVING SINGLE COND I T I ON I a E » NO SUBTABLE , I PATH=3 

62965 IF (STMMNO.NEoBLANKS) GOTO 62975 
write (99, 62796) AS,NN 
READ(99,5) STMNNO 
62975 header ( SUBTAB ) =STmNN 0 
C '-lAKE THE FORMAT MORE ELEGANT 

ENTRYS( 1 ) =L0GDT 
ENTRYS(2 )=BLANKS 
ENTRYSO )=BLANKS 
ENTRYS(A)=3LANKS 
ENTRYS(5 )=BLANKS 
£RNCH1=ITEMP 
BRNCH3=ITEMP 
BRNf H2 = F0LL0W 

IF (ENTRYS(6) oNE.CALL) ENTR YS ( 6 ) =BL ANKS 

w'R I TE( 1 , 320 ) ENTRYS ,NN ,STMNNO,bRNCHl ,BRNCH2 ,BRNCH3 

R0WTA1=R0WTA1+1 

WRI TE( A,62985 ) HEADER ( SUBTAB ), NOSTRO , I RULES 
62965 FORMAT (A 5, 14, 14) 

DO 62990 1=1, LLL 

62990 V.R I TE( 4,629 87 ) ( ENTRY ( I , I JK) ,I JK = 1,5 ) , ( ExENT ( I , JRULE) ,JRUL 

1E=1,IRULFS) 

62987 FORMAT( 5A6 5 IX , L6A6 ) 

62969 FOR>'-iAT {*G0 T0-» ,26x, 16a6 ) 

C IS THIS 26X waste FUl OF TIME ,IF IT IS, CHANGE IT 

UR I TE( 4,62989 ) (LIST ( 1 , JRULE) , JRULE = 1 , IRJLES) 

C SUBDT IS NOT INITIALISED HERE V-IILL oE DONE AFTER ASSIGNING 

C THE label for THE NEXT CARD 

6^993 L0G1FC=, FALSE. 

C INITIALISE locations 

DO 62991 K=1,LLL 
DO 62991 1=1,7 

C LnTRYS( I )=BlANKS initialise after 653 

62991 EMTPYIK, I )=BLANKS 
DO 62992 I=1,IRULES 

C EXEMT(K, I )=BLANKS initialise after 653 

62992 LIST( 1,I )=BLANKS 

GOTO (653 ,65 3,6^2,792 ) , I PATH 

C FOR 792 PROPER ROUTING WILL BE DONE AFTER MOD I F I C AT I ONS ( SU 

C /BST,.) 

C SEE COMMENT BEFORE 62965 
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GOAL=FnLLOW 

CALL FUTBRN(0PRATR,G0AL,BRNCH1 ,BRNCH2»Bi^NCH3 ,NN) 
IST’-'1N = 650 


IF(FOUND.EQ.lOO) GOTO 62900 
INDEX=2 

GOTO (781 ♦782,738 ,480 ) , FOUND 

C IT MUST BE DUE TO LOGICAL EXPRESSIONS CO,ITAIMING *AND*,*OR 

C /*»*f\.OT* 

6500 IF(LLLoEQoI) G0T0652 
STNiNMO=DITTO 

IF( LOGOPR.EO.ORR ) STMNNO=NEXT 

61 > if.RI T£{ 1,320 ) ENTRyS,NN,STMNN 0,BRNCH1 ,BRf\CH2,BRNCH3 
ROLTAl=RrwTAl+l 
653 N1=N1+1 

DO 6531 K=1,7 


6531 ENTRYS(K)=BLAN1<S 
DO 6532 K=l,10 
DO 6532 1=1,10 

6532 £XENT(K,I )=BLANKS 

IF( ISST0P,EQo200 ) GOTO 31111 
IF( IPATHoLcd aAMDoSUoDT ) GOTO 9998 
C SEE 62960+iio»«»a 

C NEXT CARD HAS ALREADY BEEN READ AT 62950 FOR PATHl 

60 TO 9999 

654 PRINT 6541, IQUIT, FINAL, BUFFER(FINAL) 

6541 EORI 'ITC/IH ,^I NEVER EXPECTED THIS CQND IT I ON*/ IH ,*10UIT = * 
1,13,* FINAL= *,I3,* BUFFER(FINAL) = *,A2/) 

GOTO 652 


C ******** **#'K--X- **-J5-'S-*** ************ ******** ****************** 


c 

C 


NESTED logical IFS 

WITH SUBSCRIPTED VARIABLES 


C* ********************************* *7** ********************* ****** 


68o LONG=0 

ITRM2S=n 

IQUIT=j 

DO 68001 1=1,20 
6 3001 LONGEX( I )=BLANI< 

UPLli''iT = JPREV 

6800 IF(BUFFER (INITAl) oNEaLEFTP > GO TO 688C 
JLEFT=TrnTAL 
6301 LPATH=j 

INITAl=InITAL+1 

6305 CALL GET EMT ( LONGEX , MAXNOP ) 

IF( LPATHoEQoO) F I MAl=F I NAL+1 
LENGTH=F IMAL-INI TAL+1 

68u 51 FORr'ATdH , * I N I T AL = * , I 3 , *F I NAL = * , 1 3 ) 
KFINAL=FINAL 
ISAVE=INITAL 
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68052 DC 6810 I = I N I TAL » F I NAL 

IFd JFFER( n.EQ.PERIOD) GO TO 6830 
IF ( BUFFER ( I ) oEQ. MINUS ) GO TO 6820 
6310 continue 
GO TO A80 
6820 INITAl=I+1 

IF ( TYpE<.ME»2*ANDcTYPEoNEo3 ) GOTO 68052 
C THIS WILL take CARE OF CASES WHERE .o-o. SIGN IS A PART OF 

C / SUBSCRI 

C T<, EXAMPLE- I F ( SW ( NEST-1 » IC2 NE o XXX ) XXXXX 

C THIS WILL include CASES WHERt$-S IS A PART OF ARITH.EXPRES 

C /SION 

UPLIMT=28 

CALL SEARCH(LEFTP»AlNUM,36,VARIAB) 

IF(FOUMDcEQolOO) ITRM2S=1C0 

^ 

C ITRM2S IS A POINTER TO KEEP TRACK OF SUBSCRIPTED VARIABLES 

C IN TERM2 IT IS 0 NORMALLY UNLESS TERivl2 IS SUBo WHEN IT IS 

C 100 

j- — 

CALL SEARCH (RlGHTP,ALNUiV|, 36, TERM2) 

IFCKFiNALoGToFINAL) GOTO 68221 

lQUIT=luU 

INITAL=10 

IF(LPATH»EQoO) imital=ii 

C THIS 'WILL NOT INTERFERE WITH ANYTHING BECAUSE lYlTH A - SlO 

C /N nested 
C IFS ARE NOT POSSIBLE 

IF( ITr,'/12ScEQ=100) FINAL = FINAL+1 
C THIS IS TO \CCOUNT FOR AN EXTRA ] 

W R I T E ( 9 R , 1 0 > ( b U F F E R ( K K ) , K K = I iNI T A L , F I N A L ) 

FULWRD=LENGTH/6 

remain=length-fulwrd*6 

BALL BINBCD(FULWR0,FARMAT<2) ) 

CALL BINBCDIREMAINsFARHATIA) ) 

IF ( RLMAINoNEoO ) FULWR0=FULWRD+1 • 

IF { FULWRDoGToS ) GOTO A80 

READ(99sFARMAT ) (ENTRYS (KK ) , KK= 1 , FULWRD ) 

6822 INITAL=FINAL+2 

IF ( LPATHo EQoO ) INI TAL= I NI TAL+1 
C THIS WILL take CARE OF EXTRA PARENTHSIS 

CALL S E A R C Fi ( C 0 M M A , M U M B E R , 1 0 , B R N C H 1 ) 

INITAL =FINAL+2 

call SEARCH! COMMA , NUMBER , 10 ,BRNCH2 ) 

IMITAL = FINA L+ 2 

CALL SEARCH! BLANK, NUMBER, 10, BRMCH3 ) 

GO TO 652 
68221 JPATH=2 

C ) IS A PART OF ARITHo EXPRESSION 
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FINAL=KFINAL 
K.MAX=(LEMGTH/6 )+l 
GO TO 5760 
5830 INPLS3=I+3 

lNrTAL=ISAVE 

C WILL BE HELPFUL IN CASES WHERE - SIGN IS A PART OF 

C SUBSCRIPT, BUT ACTUAL OERATOR IS RELATIONAL 

IF(bUFFEF( I+l ) cLQoALPBETd ) ) I NPLS3 = I NPLS3+1 
WRITE(99,300) (3UFFER(K) ,K=I,INPLS3) 

READ(99»30A) OPRATR 

IF ( duffer ( I+ l ) .EQ uALPBET (1 ) ) READ{99,305) OPRATR 

CALL PUTBRN (0PRATR,F0LL0W,BRNCHl,BRNCH2,dRNCH3,NN ) 

IUKPRE=IMITAL 

I UKFIN=F INAL 

INITAL=IF'3LS3 + 1 

J=INITAL 

UPLHMT = 28 

C IT fiAY NOT BE NEEDED ACTUALLU 

IF(FOUND.EQoIOO) goto 6831 
GO TO (781 ,78 2, ABO )', FOUND 
6831 CALt SEQUMC(L0NGEX»M»JPREV) 

IF (TYPEoEQoA) ENTRYS (6 ) =0PRATR 

IF ( LONGEX ( 1 ) oEQ «R IGHTPoORo L0NGEX( 1 ) o EQ » PER lOD AND <, LOMGEX ( 2 
1) cEQ^RIGHTP ) GOTO A70C0 

IF(L0NGEX(1)»E0.PERI0DoANDoL0N6EX(2)oEQoPERI0D) GOTO 4705 
/6 

IF(L0NGEX(1 ) jEQoLEFTPoAnDoLONGEXIZ) cEQoRIGHTP) GOTO 47047 
IF (LQNGEx ( 1 ) oEQoLEFTP»ANDoLONGEx( 2 ) o EQ o COMMA o AMD « LOMGEX ( 3 
X ) * EQ o 

IRIGHTPoORoLONGEX ( 1 ) sEQoLEFTPoANDc L0NGEX{2 ) oEQcCOMMAoANDoLO 
/NGEX(3) 

2«EQoC0MMAoAnDoL0NGEX{4) ,EQcRIGHTP) goto 47089 
GOTO 480 
47000 ITRiM2S = n 
IROUTE=l 
IQUIT=*00 
LOGIFO=oTRUEo 

CALL search ( R I GHT P , AlMUM ,36 , TER M2 ) 

GOTO 6834 
47n56 ITRM2S=0 
IR0L'TE = 2 
L0GIF0 =oFALSE„ 

IQUIT=0 

CALL SEARCH (PER lOD , A lNUM , 36 , TERM2 ) 

C WE must make sure IF WE HAVE EnCOUNTErD A DECIMAL POINT OR 

C A FULL STOP 

IF ( dUFFEr ( FI nAl + 2 ) »NLoAlPBET ( 1 ) o AND o BUFFER { F I NAL+2 ) oNE« ALP 
1BET( 15 ) ) GOTO 47o39 
GOTO 6834 

470-39 ,.ISjAVE=INITAL 

i . i I '■ i - I* I ■ 
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CALL SEARCH(PERI0D, number, 10, TERM2) 

JSTMNT= 47059 

inital=isave 

GOTO 6834 

47047 IF(L0NGEX(3 ) oEQ.RIGHTP) GOTO 47040 
C OTHERWISE IT MUST BE A <, 

IF(LONGEX(3 ) oNEoPERIOD) GOTO 480 

ITRM2S=100 

L0GTF0=-FAlSEo 

I0UIT=0 

ir6ute=4 

CALL SEARCH(PERI0D,AlNUM,36,TERN2) 

GOTO 6834 
47040 ITR[-,2S=1CC- 
IR0UTE=3 
LOGIFO=<.TRUEo 

CALL SEARCH(RIGHTP,AlNUM,36 .TERM2 ) 

GOTO 6834 

47089 CALL SEARCH ( R I GHTP , AlNUM , 36 » TERM2 ) 

ISAVE=FINAL+2 

IF(6UFFEr( ISAVE)oEQ»RI6HTP) goto 47085 
IF(oUFFER( INITAL) oEQ^RIGHTP) GOTO 47085 
C otherwise IT must U£ A 0 

ITRM2S=100 
L*OGIFO=or ALSE. 

IQUIT=o 
IR0UTE=6 
GOTO 6334 
C 

c 

403 UP'_IMT = JPREV 

CALl GETENT(L0NGEX»MAXN0P) 

GOTO 5021 
C 
C 

47085 ITRM2S=100 
IR0UTE=5 
LOGIFO=oTRUEo 
GOTO 6834 
6834 IMIM1=T-1 

IF( ITpn2SoEQolOO.) FINAL = FIMAL+1 

WRI TE( 99 » 10 ) (UUF FER (K. ) ,K=I JAPRE, IMI N1 ^ ,Ml NUS 9 ( BUFFER ( K ) »l< 
1=INITAL»FINAL) 

|< = FIMAL-I JKPRE-4+l-fl 

C A bt-CAUSE oOPo IS UtLET£D, + l UECAUSE - Is I NSERTED , AnD+1 I 

C /S NORMAL 

FULWRD='</6 

REMAIM=K-FULWRD*6 

CALL BINBCD(FULWRD,FARMAT(2) ) 

CALL BINBC0{REMAIN,FARMAT{4) ) 
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6835 

C 

c 


683 0 

725 

C 

C 

Ci-* -if- 

750 

731 


C 


C 

C 

c 

780 


IF(R£mAIM«n£oO) 
IF{FULWRJ.6T.5 ) 
READ(99»FARMAT) 
READ( 99 »FARMAT ) 


fulwrd=fulwrd+i 

GOTO A80 

(ENTRYSTK) ,K = 1 ,FULVjRD) 

( ENTRY(LLL,K) ,K=1 ,FULWRC ) 


IFULPl = FULVmD+l 
DO- 6835 K=IFULP1 »5 
E\lTRYS(K)=BLANKS 
EMKY(LLL»K)=BLANKS 

NOT sure whether TO BE USED IN MAIN DT OR SUB DT <. 
AT BOTH PLACES 


INITAI =F INAL+1 
ASSIGN A03 TO LOG IF 
EXENT (LLLjPULE) =GPRATR 
ISTMN=6834 
JSTMNT=6834 


GOTO 62905 
LPATH=1C;U 
GO TO 6805 
GO TO 630 


SO cNTER 


. -V(. -j;. >v/. ^ .V. .V. .V. .V/ .W. J/. .V. .V, .V/. W. ^ .V, .V. .V. .V. . 


1 . -V. M. JH. 5 -, 


r "X- -X- -X' X- )r X- -X X- X- -X* ^ X- 'X -Xt X- -Xr - ^ 


HAMUlES COiMTINUATIOil 

X- •/(' X- X -A- X- X vf -A- X' X- X- X X X' X X X X- X- 


CARDS OF IFS 


FOUNO=iOC' 

NOCONT=NOCONT+1 
READ 10»COLS 
PRINT 110, COLS 
'WRITE(0»12) NlsCOLS 
IF(COLS(l),EQoC) GOTO 751 

check if a comment CARD 

IC0NT=IC0NT+1 

CALL SQUEZE(C0LS,JPREV) 


* * * * -X- -X- * * * -5^ -N- 


UPLir-iT = 72+NOCONT*66 
lUPTO =INITAL+UPLIMT-1 
CALL GETrNT(LONGEX,HAXNOP ) 

IF ( FOUNDoEQoO ) GO TO 750 
I JKPRE=FINAL 
I JKFI\i = FINAL 
INITAL=FINAL+2 
GOTO 50100 

jET FOUMd=1CO so that JPREV HAY BE SET TO PROPER IN 
SQUEZE 


ENTRYSI I )=TERM1 
E.n1TRYS(2 )=DASH 

IF ( TYPEoEQ»3) ENTRYS (2 )=BLANKS 
ENTF YS( 3 )=TERM2 
ENTRY (LLL»1 )=TERM1 





EnTrY(LLL» 2 )=DASH 
EMTPY(LLL»3 )=TERM2 

I F ( TYPE o EQ o 3 ) ENTRY ( LLL > 2 ) =BLAN;<S 

ENTRY(LLL,4)=BLANKS 

ENTRY(LLL»5)=BLANKS 

EMTRYS(4 )=BLANKS 

ENTRYS(5 )=BLAN1<S 

EXENT(LLI sRULE)=OPRATR 

IPATH = 1 

ASSIGN 503 TO LOGIF 
GOTO 62906 
781 JST|V,mT = 781 


c THIS pat:i for and operator 

ENTRY ( LLL » 1 )=TERM1 
ENTRYSI 1 )=TERM1 
ENTRYS(2 )=BLANKS 
ENTRY(LLL,2)=BLANKS 
78160 ENTRY(LLL»3 ) = BLANKS 
EnTRY(LLL» 4)=BLANKS 

£N rr y(lll. 5 )=blanks 

ENTkYS(3 )=BLANKS 
ENTRY5(4 )=BLAMKS 
ENTRYS(5 )=BLANKS 
EXENT(LLL,RULE)=T 
IPATh =4 

assign 503 TO LOGiF 

ISThN=78128 

goto 62906 

C * ^ -X- -K- -K- * -!}■ i'r -x- * * * * * * -k- -;$• 

782 JSTMNT=782 , 

C , THIS IS FOR OR OPERATOR 

GOTO 78150 
C* 


■X- * * * -)!• -X- -X- X -K- -;f- -Jf- -x x x * x x x ; 


C > 

C'-5- WITH -S'-NOT* OPRATR 


783 ENTRY(LLL,1 )=NOT 
ENTRYS( 1 )=NOT 

C FEB 19 6 9 

C THIS PATH FOR NOT OPERATOR 

ENTRYS(2 )=TERMl 
ENTRY(LLL»2 )=TERM1 
ENTRYS(2 )=ENTRY (LLL»2 ) 

JSTfviNT = 7 38 
GOTO 78160 

7885c CALL SE ARCH ( P ER I OD , ALNUn , 36 , ENTR Y ( LLL ,2 ) ) 
IFCFOUND.EQ.O) GOTO 7850 

C FAILURE means ^INSTEAD oF o WE SHALL ENCOUNTER ) 

7850 CALL SEARCH ( R I GHTP , ALNUM , 36 , ENTRY ( LLL , 2 ) ) 

ENTRYS(2 )=ENTRY (LLL,2 ) 

IF(F INALoNEoIJKPRE) GOTO 480 

C ASSUivlIMG THAT IF c IS NOT FOUND,) IS DEFINITELY FOUr- 

c /ting 
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C WITH (j ARE NOT CONSIDERED 

LOGIFO==TRUEo 
JSTMNT=7850 
GOTO 78160 

790 UPLIMT=6 
INITAL=15 

C FEB 19 6 9 

GOTO 788 

792 BRNCH1=STARS 
BRNCH2=STARS 
8RNCH3=STARS 

■ , ^ _ 

C 

C THE true condition OF LOGICAL IF HAS BEEN COMBINED WITH 

C oEOcG CASE OF ARITHMATIC IFS 

c 

c 


I F ( ORDER , EQ«G0T04 ) BRNCH2=F0LL0W 

IF (ORDERoEQoSTOPA.ORoORDhRoLIQcRETURMoCRoOPDER ^EQoCAlLo/' 
IFOLLOWpEQ, 138888) 6RNCH2 = FOLLOW 
F0UN0=3 


G0T0652 


■if * -H- * -5^ ■!<- -if -if -If -if * -if * -if -If * -If if -if -if -if -if -If ^f * -if ■» -if -if -if -If -if -If if -If -If -if • 

if -if ^ , f -K- -if -If * * -if . f if -if -If -If -if -If -if -if -if -if -if -If -If -If -if -If -if -If -if -if -if -If -If -if -If -If 


f -if if -.f -If -If -If if -if -if -if -If * -If -if if -If -If i- -if- r - 
f if if -If if 7f if -If -If -If if if if if if- if if if if i- ->f 


if 


PROCESSING FOR GOTO AND COMPUTED GOTO 


* if if if if * -If -If * if ** if if if if if -If * if if if- -X- if if if if if -If if if if if if if -If -If * if if -If if i 


if if if if -If -If if if if if if if if if -f • - ' 


IT IS EXPECTED THAT NOBODY ’WILL ISE 
FOR GOTO STATEMENT, BUT ONE MAY USE 
ASSIGNED GOTO, 

SEE 370 FOR CONTINUATION CARDS 
800 INI1AL=11 

CALL SEARCH! equals ,ALIMUM , 36 , GOAL ) 
IF (FOUND, EQolOU) GO TO 310 
IF(bUFFER(ll) oEQ.LEFTP) GO TO 850 
CALL SEARCH ( COMMA ,ALMUM , 36 , I NDEX ) 

IF (F0UnDoEQ,0) goto 8000 


A CCi'lTiMUATION CARu 
IT FOR COMPUTED AND 


INITAL = FINAL-(-3 
IPATh=2 

C THIS PATH FOR ASSIGNED GOTO 

GO TO 834 

C THIS PATH FOR GOTO 


IF (FOUND. EQ.O ) 60 TO 480 
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l-iRMCHlsGCAL 
GRNCM2=G0AL 
oRMCH 3 =G 0 AL 
ENTRY.S( 1 ) =60T04 
GOTO 652 


C * 5!- -if -;f -5;- * ^ ii- ^ -!«• * * # * -!!- -x- x- -x * x- -x x x #' x x x * x x x x x x x x x x x x x x x x x 

C X COMPUTED GO TO 

r rr X X X X X X X X X X X X X X X X X XXX X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

6*^0 INltAL = 12 
IPATh=1 


C THIS PATH FOR COMPUTED GOTO 

G54 Ui<=l . 

855 CA'.L StARCH(COMMA*NUMBER,lG,LrST( 1 *UK) ) 

IF{F OU^lD»EQ.O) GO TO 870 
INITAL=FINAL+2 


UK=UK+l 
GO TO 855 

C GOBA.CK to find the NEXRT BRANCH 

870 CALL SEARCH(RIGHTP»MUMBER,10,LIST( 1,UK) ) 

INITAL=FINAL+3 

C tooouooFjfl HENCE FINAlx3 

c can Insert for continuation cards of computed and assic - 

C / GOTO 
IUK=UK 


IF(-IPATHoEQ.2 ) GOTO 880 
DO 8701 K=1»IJ< 

8701 EXeNT(l,K)=BCDTAB(K) 

C bCDTAB CONTAINS THE lEFT JUSTIFIED SERIAL NOSc IN BCD 

CALL oEARCH I blank >AlNUM« 36 » INDEX ) 

8700 £NTRY(1,1)=INDEX 
ENTrY(1,2)=£QUAlS 
eNTRY(l,3)=BLANKS 


ENTRY(1»4)=BLANKS 

ENTrY(l,6)=BLANKS 


IPATh=2 

C IpATH HAS SERVED ITS PURPOSEoNEW VALUES CAN BE ASSIGNED 

C /IT FOR 

C further USE AT 62992 ETC 


RULE=I UK 


IRULES=IJK 
NOSTRO=l 
LLL = 1 

SUBTAB=SUBTAB+1 

ITEMP=DASH 

BRNCH2-G0T04 

i-0LL0W=GjT04 

C THIS IS COT PERTINENT, USED FOR PROPER ROUTING 

C routing AT 653 

GO TO 62965 
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680 DO 882 1=1, UK 
882 EXFVT(l,I)=LIST{l,n 

C 

C 

C ■>;- * * ^ -X * -X X x x x x x x x x x x x x x x x x ix -x- x x x x x x x -x- x- x x x x x x x x x x x x x x x 

C STOP 

C 

C CALL EXIT 

C -X X X X X- X X X -x- -X- X X X X X- X X X X X X- X- X X X- X X X X X- X- X X -X- X XXX X X- X X X X X -X X X -X- X X X -X- X X X X X X X X X X 

900 ENTRYS( 1 )=STOP4 
920 bRNCHl=DASH 
BRNCH2=DASH 
BRMCH3=DASH 
GO TO 9990 

940 ENTRYS( 1)=RETURN 
60 To 920 

960 'A'RITE(99,30n) (BUFFER(K) ,K=11,14) 

READ(99>304) FOLLOW 
IF(FOLLOWoEQ,EXITT) GOTO 970 
GOTO 310 

97o ENTRYS(3 )=CALL 

ENTRYS(4 )=F0LL0W 
60 TO 900 
9990 GO TO 652 
C 

c 

C X X X X X X X X X X X X X X X X X X X X X X- X X- X- X X X X X X X X X X X X X X X x x x x x x x x x x x x x- x x x x x x x x x 
C X X X X X X X X X X X X X- X X X X X X X X X X X X X X x- X X X x- x x x x x x x x x x- x a x- x x- x x x- x- x- x x x x x x x x x- 

Cx 

C this is THE EKJ OF CLASFY 

C-x 

C* 

c XX X- X X X X X XXX X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

99904 CALL oARSEM 

C THERE IS A NORMAL STOP IN PARSEM (PARSE MA I N ) o HOWEVER , FOR 

C THE sake OF COMPLETENESS KEEPING A STOP HERE 

29999 IF (C0LS( 30) oEQoALPCETC 16 ) ) GOTO 99904 
C THIS IS THE CASE OF PARSE 

' C * X X- X X XXX X X- X X X- X X X X X X X X X X X X X X X X- X X X X X X X X X X X X X X X X X"- X- X X X X X -X X X X X X X X X X 

IF ( ISSTOPoEQ.lOO) GOTO 5599 
31111 PAU^sE mil 

C THIS IS FOR paper MOUNTING TO GET OUTPUT IN A NICE FORMAT 

N1SAVE=N1 
Ml = f\!l‘-l+ICONT-l 
N0SU6T=SUBTAB 

c r -K- y<r 'X* ■)(* V.- -X- -X- 'X’ X- -X- -X- -X- X- -X' -x- -5(- -X' X- -X“ -X X- X- X- --C -Jr X- X X -X- X- X -X- X X~ X X- -)(- X X X- X- X- X X X X X- X- X X X X X x- X X- 

C THIS lo TO have an IDEA OF TOTAL CARDS TO BE PRINTED 

REWIND 0 
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REWIND 1 
REWIND 2 
REWIND 4 

.2222 FORMATdH , 36A1 , A6 , 2X , 8 ( 5X , A5 ) ) 

IF(C0LS(25) „EQoALPBET(2) ) GOTO 55502 
TABlE=ALP6ET(2 ) 

PRINT 2 15, TABLE 
DO 5550 JA=1,N0TAB2 

READ ( ? ,319 ) (PUFFER ( I ), 1=7,42 ) , NM , STNNr 0 , BRN CHl , BRNCH2 , ER 
/NCH3 

5550 PR I NT 2222, ( BUFFER ( I ), 1 = 7,42 ) »MN jSTMNNO ,PRNCH l ,6RNCH2 ,BRNC 
/H3 

55502 IF ( COLS ( 15 ) »EQo ALPBET ( 1 ) ) GOTO 29996 
TABLE=ALPBET( 1 ) 

NCRD=R0WTA1 

IF(NCrDoEQoO) call EXIT 

THIS IS THE CASE WHEN TABLE A IS EMPTY, dE. NO CONTROL 
STATEMENT, WHENCE NO DoTo 
PRINT 21501 

21301 F'ORMmTI IHl ,*i\!OTEo IN THE FOLLO'v/ING TABLE, FOR THE CONDITION 
/S CONTAI 

INIMG declared logical VARIAdLESTHE true CONDITION -s^-ZlH 
— "'^sSX, 

2*HAS been Combined w’Ith eqz case of arithmatic expressions 

DRINT 215, TABLE 
■ DO 29993 J=1 ,NCRD 

READ ( 1 ,32 3) ( ENTRY ( J , XK ) , KK = 1 ,7 ) , N ( J ) ,STMNT ( J ) ,BRNCH( J,1 ) , 
/PRNCHIJ, 

12) ,bRNCH( J,3) 

PRINT 22 u U 1 , ( EN TR Y ( J , M ) , M= 1 , 7 ) , M ( J ) , J , STMN T ( J ) , ( BRNCH ( J , M ) 

/ ,.'1 = 1,3) 

22001 FCRMATdH , 7A6 , A6 , I 3 , 8 ( 5X , A5 ) ) 

29995 continue 

29996 IFdNOSUBToEQoO) GOTO 2992 
DO 29993 I=l,NOSUBT 

READ( a,62985 ) HEADER ( I ), NOSTRO , I RULES 
PRINT 20104 

PRINT 629 31, HEADER! I ) , NOSTRO , I RULES 
PRINT 20104 

62981 FoPMATdH ,*SUPTA3 lE , A5 , 1 4 , 1 A ) 

PRI.NT 26001, (NUMB! JKl) , JKL = 1 , 1 RULES ) 
no 29991 K=l, NOSTRO 

RE AD (4,62987) (ENTRYS( IJ),IJ = 1,5) , ( ExENT ( K , JR ) , JR= 1 , 1 RULES 
/ ) 

29991 PRINT 12346, (EnTRYS( IJ ) , I J = 1 , 5 ) , ( EXENT ( K , JR ) , JR= 1 , 1 RULES 
/ ) 

PRINT 42344 
PRINT h- 2344 
A<i344 fOR!1aT(1h 
/ 

1 


) 
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READ (4, 6 2989) (LIST( 1,JR) , JR= 1 , I RULES ) 
29993 PRINT 26005, ( L I ST { 1 , JR ) , JR= 1 , I RULES ) 
2992 R0MERG=e 

if(Caryon»eqoO»o) call exit 


2x5 fORLaTC//////56X,* ^«-//56X,* T 3 

/L E 

1 *,a 2,* * //56X,* *////lX,* 

/ 

2 . — 

/ 

3 */21X, 


A*£MTRY*,17X,*N*,L2X,*STMNT-;;-,3X,* BRNCHl 6RNCH2 *, 
/BRNCH3 

5'i(’ , -^CAiME F ROKi* , LT 0 EQ 0 *? 

/* GT 0 

D*/1X,* — 


/ 

/ *// ) 

DO 10000 IJK=1,3 
DO 10000 J=1,100 
lOuOC EXCUTO( J , UK) =DASH 
DO 20011 J=l,40 

DO 20011 JK=1,32 
20011 LIST( j,JK)=BLANKS 
DO 99991 J=l,100 


MAST£r( J)=DASH 
99991 PREVMOI J)=DASH 
11112 F0Ri4AT(7a6,2X,A6,4(2X,A5) ) 

C 

c 

C * * ^ -Hr * x- * -!<• -x- -x- x- * * -x- -x x -> -x x x x x x * -x -x x -x x x x -x x x x -x x x x x x x x x x x x 

C 

C 


ACTUAL 2(\0 PHASE STARTS FROM HERE 


C 

C 

C X X X 


2001 


C 

C 


X- X X X X X X X X -j:- x x x x -x- X X X X X X X X X X X X X X X- X X- X X X X X X X X- X X X X X X X X X X- X X X X X X X X 

CO 2001 IC0N=1,40 
DC 2001 RULE =1,40 
EXEf T( IC0N,RULE) =BLANKS 
PREVNO( 1 )=BEGIN 
MASTEPC 1 )=BEGIN 

IF(STHNT(1)oEQo6LANK5) STMNT ( 1 ) =BEG I N 
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C 


U8 


RESET = 0 
EXINT=1 
i-OOP = o 

POINTER FOR SEEING IF LOOPING WAS EVER THERE 

RULE=1 

IRULES =0 

ENDING=0 

PAUSE 123A5 

THIS IS TO set sense SWITCJ 
SU3UT=. FALSE. 

SUofT IS false till parsing is complete. it is true while p 

/ROCESS-- 

ING TF'E COLS OF GOTOS 

L=1 

J = 1 

LFF = 1 

FILLED =0 

LF = 1 


REmTEr ( 1 ) =1 

1 ST ConE>ITION Is always entered sequentially or otherwise 

IPAtH=l 


010 MCAM£=BCDTAB( J) 


mCAmE IS later used TO HAVE PREVNOIJJI AmD rEtFrMoTHIS 
Contains bcd mode value of ..j.. but has nothing to do with 
N l= source statement of phasei 


print 201C4 
2D10A FORMAT!///) 

IF {Entry ( j,i ) . ne. stop o and .entry ( j ,i ) . ne. return* and. entry ( j 

I 9 I ) .NE.GOTO ) GOTO 26208 
2Ci05 K=J 

IF (ENTRY! J*l) .E q.GOTO) EXCUTD ( J » 3 1 =DASH 
217 IFlEXlNToEQolOoAND.JoEQ. RESET) GO TO 21811 
1 = 1 

IF(EXCUTD(J,I ).EQ.DASH) GO TO 2020 
IF ( SUBDT . AND. J.EQoNCRD ) GOTO A620A 
C THIS IS pertinent ONlY WHILE PROCESSING SUB DTS OF GOTOS 

IF(JoEOo^) GOTO 2192 
2171 1=2 

IF(EXCUTD( J»I ) oEq.DASH) GO TO 2020 
1 = 3 

IF( EXCUTDl J,I ) oEQoDASH) GO TO 2020 
C 

C THIS IS THE CASE IF wE ARE RETURNING BACX AFTER STOP. 

IF(J.MEol) GO TO 218 
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21710 PRINT 21711 

C THIS WILL ALSO BE APPROACHED IN THE CASE OF A DT HAVING 

C MORE than the ANTICIPATED MOo OF RULES OR CONDITIONS 

PRINT 21712 
PRINT 21713 

21711 F0RMAT{ 1H1,51X»28{ lH-)//52X,*D ECESION TABLE 
/•W-//1H , 

151X,28{1H-)///) 

21712 FORMAT (IH ,131(1H.)) 

21713 FORMAT!/) 

PRINT 26L01 , (nUmB ( JKl ) » JKL=1 »16 ) 

PRINT 21713 
PRINT 21712 
TTEMP1=I rules 
ITEMP=LMIN1 

IF ( ITEMPl .6T,16 ) IRULES=16 
DO 22347 LLL=1»LMINI 

22347 PRINT 12 346 » I ConDSN ( lLL » I JK I » I JK= 1 » 5 ) » ( EXENT ( LLL» JRULE ) »JR 
1ULE=1 , IRULES) 

CD 26204 LiMM = l,LFF 

26204 PRINT 26005 »( L 1ST { Li IN ,JRULE ) ,JRULE=1 , IRULES ) 

IF( ITEMPI 0 LE 0 I 6 ) GOTO 26207 
IRULES=ITEMP1 
DO 26226 JKL=1,16 

2o226 NUMB! JKL)=JKL+16 

PRINT 26001» !NUMB( JKl) ,JKL=1,16 ) 

DO 22348 LLL=l»LMINl 

22348 PRINT 12 346 » ( CONDSN ! lLL » I JK ) , I JK= 1 , 5 ) , ! EXENT ( LLL » JRULE ) ,JR 
1ULE=17,IRULES) 

DO 26206 LMN=l,LFF 

26206 PRINT 26 005 » ! L I ST ( LMN , JRULE ) , JRULE= 17 , I R JLES ) 

2620? CONTINUE 

C INSERT CALL PARSE TWICE OTOS 

C WRITE ON TAPE THE ALREADY OBTAINED DT 

IF(FILLEDoGT«0) goto 26201 
STOP 

^ 

c 

c PROCESSING OF SUB TABLES OF GOTOS 

C 



26<.03 SUBDT=oTRUE. 

NCRD=NCRD+1 

C CREATING A NEW ROW IN TABLE A 

ICOL=0 
J=NCRD 

DO 46201 1=2,7 
46201 ENTRY! J, I )=BLANKS 
ENTRY! J,1 )=G0T04 
N! J)=BLANKS 
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C 

C 

4620^ IC0L=IC0L+1 

IF( ICOL.GToFILLED) STOP 
DO 46205 I=1,IRULES 
DO 462j5 K=1»L 

46205 EXEMKK, I )=BLAIMKS 
DO 462o6 IJK=1,3 
DO 46206 JK=1»NCRD 

46206 EXCUTD( JK»IJK) =DASH 
DO 462n7 J=1,LFF 

DO 462j7 JK=1,IRULES 

46207 LIST( J,JK)=BLANKS 
DO 46208 J=l,iMCRD 
HASTER( J)=DASH 

46208- PREVMO( J )=DASH 
DO 46209 K=1,L 
DO 46209 KK = 1*'7 

46209 C0NDSM(K»KK)=BLANKS 

C finally you may HAVE TO KEEP A SEPARATE PRINT FOR SUCH TAB 

C /LES 

DO 46210 I=1,NCRD 

46210 RENTER(n=0 
RENTER(NCRD)=1 
J=NCRD 

C NCRD TH ROW OF TABLE A(NEWLY CREATED) SHALL ALWAYS HAVE AN 

C / ELEMENT 

C OF COLS 

^REVNO( J)=BEGIN 
MASTER( J )=BEGIN 
STMNT( J)=BEGIN ■ 

CALL 6INBCD{NCRD»NN) 

CALL REMLBL(NN» NUMBER ( 10) ) 

ECDTAB(NCRD) = N.N 
N( J)=BC0TAB(J) 

RESFT=0 
EXINT = 1 
ENDTNC = 0 

BRNCH( J,l)=COLS( ICOL) 

bRNCH( J,2)=DASH 

BRNCFK J»3)=DASH 

RUlE=1 

1RULES=1 

L = 1 

LF = 1 

LFF=1 

C FINALLY WHEN PRINTS ArE SUPRESSED ,1T WILL PROVIDE THE PR 

C /OPER 

C SUB TITLE 
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1 = 1 

C ULTIMATELY WE COULD KEEP GOTO 2020 OR STILL BETTER „„G0 

C /TO 2024 

C INSTEAD OF GOTO 2010 

50 TO 20 10 

c 

2A208 CALL R I GHTJ ( N ( J ), M IJ 1 , BLANK > NUMBER ( 1 0 ) ) 
call BCDBIN (MlJl ,NJ) 

I 3THN=26208 
RENTER(J)=1 
GOTO 20105 
219 DO 2191 K=l»3 

2191 EXCUTD( J,K)=DASH 
JJ = J 

IPATH=100 
GOTO 250 

2192 DO 28501 IJ=2,NCRD 
28501 .CENTER { I J)=C 

GOTO 2171 

218 DO 2181 K=r»3 

2181 tXCUTD{ J,K)=DASH 
IPATH=1 

C IF IPATH IS NOT RESET TO 1 ,WE SHALL GET A SUPERFLUOUS RULE. 

C IN certain CASES IF lAST ROUTE HAD BEEN 2026,28500,250 ETC 

EXINT=1 j 
RESET=J 

C EXIMT IS FOR INITIALISING ECxCUTED 

IF(MASTER(J)oN£oPREVMO( J)<.ANBoL 00P»EQ«1) GOTO 21812 
C INSERTED APRIL 28,1969c SHOULD HELP IN GETTING PROPER EXIT 

■ C example- GAUSS SEIDAL METHOD WITH EXTRA ARTIFICIAL CONDIT 

C 'ION 

C 

251 JJ=J 

c pointer For rule this will be tested before incrementing 
c /rule 

go to 250 

c 

C so THAT LOGIC MAY oE CLEAR DELEBRATELY KEEPING I T AS A GO 

C /TO 

21812 RETFRM=MASTER ( J ) 

NPATH=21812 
GOTO 25000 
21811 £XINT = fj 
1 = 1 

C IF I IS NOT SET TO 1 THEN LAST VALUE OF I WILL BE TAKEN AN 

C /D ORDER 

C OF RULES GETS ALTERED 
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C 

2020 HBRNCH=BRNCH( J 5 I ) 

EXCUTD(J,I )=BRNCH(J, I ) 

IF(EMTrY( J, l) ,EQ oG0T0o 0R.£NTRY( J,l) aEQoSTOP) GOTO 20240 
IF(EMTRY( J,l) .EQoLOGDTcAND<,IoEQ = 2) GOTO 279 
IF(ENTRY( J,l) oEQ.LOGDT) GOTO 20272 
IF{ENTRY( J,l) ,EOoRETURN) GOTO 2024 


cNTPY(J»l) CAM NEvER BE A STOP dECAUSt Or THE PROGRAM SETU 

/P 

■Jc -jc -A -X' X- X* -X' X- X- X- X- X- X- X- X- X- X X- X- X X- X- X- X' X- X- X” X X- X- X- X X X" X- X X X X X X X' X- X X X- X X- X X X X X X- X X 

PROCESSING FOR iF STARTS 

^ c * -Yr * if * * * -K- * if * if if if if if if if if if if if if if it if if if if if if if if if if if * if if * if if * * if * 'if 

THIS IS 10 TEST FrON CONDITIONS dECOMiNG DUPLICATE 


if if if * if if if if if if if if if if if if if if if if if if if if if if if if if if «■ if if if if if if if if if if if if if if if if *** i^ ** i^' ** * 

L IS TO be SAVED BECAUSE IT IS THE LATEST VALUE 
2021 LFINAL=L 

IF(LoLTo2) GO TO 23500 


LMIN1=L-1 

DO 2350 LJK.= 1»LMIN1 
DO 23501 IJK=1»7 

IF ( ENTRY ( J> I JK ) cNEoCONDSN ( LJK» I JK ) ) GO TO 2350 
23501. continue , , ^ 

c A matching Condition which was already t.iere has been foun 
c /D 


L = LJI< 

ipath=io 

c THIS IS JUST TO TAKE CARE OF TWO BRANCHES OF A TREE HAVING 

C /A COMMO 

C N SUB SEXCTION 

GO TO 20260 
2350 continue 

C IF A NORMAL EXiT IT IS A NEW CONDITION 

23500 IPATH=j 

C THIS IS JUST TO TAKE CARE OF TWO BRANCHES OF A TREE HAVING 

C /A COMMO 

C N SUB SEXCTION 

DO 2351 IJK=1»7 

2551 CONDSN(L, IJK)=ENTRY( J,IJK) 


2U260 IF ( BRfjCH ( J , 1 ) » lq o BRNCH ( J » 2 ) ^ AnD „ BrnCH ( J » 1 ) 0 Eq <= BrmCH ( J »3 > <>A 
/MDoBRNCH 

1( J,1 ) oEOoSTARS) goto 20264 

IF(BRNCH(J>1)oEQciBRNCH(J921oANDciIoLE«21 goto 2o261 

IF ( L'RNCH { J , 1 ) o l.QoBRNCH( J»3 ) oANDc I ^MEo2 ) GO TO 20262 
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IF ( bRNCH( J,2 ) oEQoBrnCH{ J,3 ) ^AnDo I 
GO TO (231,232,233),! 

■JJ 

0 

<.2) 

231 

EXENT(L,RULF)=LTZ 

GO TO 235 



232 

EXENT(L,RULEI=EQZ 

GO TO 235 



233 

EXENT(L,RULE)=GTZ 



233 

IF( IPATH,EO«10 ) L=LFINAL-1 

L=L+1 



C 

LATER VIHEN WE INCREMENT L IT WILL 

BE 

OK 


C IF IT IS NOT 10 IT MUST B£ 0 AND L HAS NOT BEEN TEMPERED W 

C /ITH 

PRINT 907, (CONDSN (LJK, I JK) ,IJK = 1,7) , MBRNCH , EXENT ( LJK , RULE ) 
9 >7 FORMATdH ,7A6,*F0R *,A5,* HAS EXTENDED ENTRY AS *,A5} 

-X- •?;- -;*■ -X- * * ;>-*-:<■ X- -:(■ -x- <- x- x- -;5- * * * x- -;{■ x- * x- x- x- -;f- «■ x- -;!■ x * x- x x- x- x x- x x- x- x x x x x x- x x- x x x x x- x x x 

C V./E ARE NOW SEARCHING FOR A STATEMENT WHICH MATCHES . THE 

C ^ X- X X X X X X x- X X X- X X X x X- X X X X X- X X X X- X X- X- X- X X- X X X X x- X X- X- X X"- X X- X X X X x x x x x x x x x- x x x x x 

C BRANCH 

2C240 IF(i'iBRNCHoEQoSTARS) GO TO . 2090 
20 -lA continue 

DO 2025 JJ=1,NCRD 

IF(STMNT( JJ) oEQoMBRNCH) GO TO 2026 
2025 CONTINUE 

PRINT 2027,MBRNCH 

2C27 FORMATCIH ,*DATA FOR PHASE2 SEEMS TO BE WRONG* , A6 ,* IS MISS 
/ING IN S 

ITMnT C0LUMN*/58X ,*0R*/1H ,*IS TO BE OBTAINED FROM TABLE 2* 
/ ) 

C 

c * X X- X- X- XXX X- X- X X X X X X X X X X X X X X- X- X X- X X X X X X X X- X X X -X X X X X- X- X X X X- X X X- X X X X X X X X X X X X 


REWIND 2 

DO 20271 JA=1,N0TA32 

READ (2s219) (BUFFER! I ) ,I=7,A2) , NN , STMNNO , BRNCHi , BRNCH2 , BR 
/NCH3 

I F ( STMNNO EQo iMBRNCH ) GOTO 2400 
20271 continue 


C 

T.HIS SHOWS THAT 

IN 

AN EFFECTIVE GOTO A DEClErAtION 

C 

b E L N MET W I T H o 

I B 

M fortran IV Does not point out an 

c 

ERRCR MESSAGE 

FOR 


c 

GOTO 

10 


c 

ir FOR.MAT 

( IH 

9uoooooooOijc, } 


C BUT WATFOR DOESo SINCE ALL DECLERATIONS HAVE BEEN THROWN 

C OUT and are not IN TABLES A AND B, IT IS A MISTAKE OF THE 

C PROGRAMMER o 

C suitable MESSAGE IS PRINTED OUT 

C 

PR I. NT 2027,MBRNCH 
ISTMN=20271 
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PRINT 24002, ISTMN 
STOP 

2C272 IF(KEQol) EXCUTD ( J , 3 ) = BRNCH ( J , 3 ) 
GOTO 2 0240 

2026 PREVNOI J J ) =MCANE 
I PATH=1 


C 

C 


I F (MASTER (JJ) 
THIS WILL BE 
/REVMO) o o 


cEQcDASH) MASTER( JJ)=prevN0( Jj) 
USEFUL WHEN IT STARTS LOOPING IN 


o oDTENTC o o ,P 


c 

c 

c 

c 

c 

c 


K = LJK 


THIS IS NOT NELDED Im THE 
IF COMING TO 2026 VIA 24^0 
actually the previous ONEo 
ANALYSIS 


final SHAPE 
CONDITION 'listed WILL 
IT DOES NOT MATTER IN 


BE THE 

final 


43109 

C 

c 

c 

<; 

c 

c 

c 

c 


IF ( Entry ( JJ , 1 ) o eqoSTop ) go to 25o 
IF(FNTRY( JJ,1)<.EQ»RETURN) goto 25o 

IF{ENTRY( JJ,1) oEQ.GOTO) GO TO 21 o 
IF(RENT£R( JJ) »EQo1 ) goto 28500 
ISTMN=2026 


) »EQ.DAsH) goto 280 

for' SUBDT^^ nF^° fpc SUBDTS OF ».GOTO 

FOR SUBDTS OF ooIFSo. ROUTING Is THROUGH 2020 , 279 , 280 o c , 


U IS THE RECORD WITH WHICH WE START 
WHICH match is found 


AND JJ Is the one for 


240 “^Q^^^LlcAnDoMBrnCHoNEoSTArS) GOTO 24098 

C KEPT INSTEAD OF 240 CONTINUE AND LF=LF+1 

C /RRE^r^^ CONDITION NOo LF FOR ACTION NO„ AND LL FOR CU 

C VALUE OF LIST 

J= JJ 

IF ( LoG r»40o0Ro IRULES;.GTo40<.0R.LFF»GTo40 ) GOTO 245 

GO To 2010 

r.-+098 LIST(LF,RULE)=ENTRY( J,7) 

LF=LF+1 
GOTO 240 

24o0 continue 

L I ST ( LF , RULE ) =MBRNCH 
LF=LF+1 

CALL RIGHTJ(NN, NN, blank, MUM6ER( 10) ) 
call BCDB U; ( NN » NNBI n ) 

c keeping 2 ,ncrd so that sbegins is not co,iverted binary 

DO 24001 JJ=1,NCRD 

C changed loop from JJ=2,ncRD to JJ=1,NCRD APRIL 3,1969 



155 


C 

c 

24001 


24002 

240lv. 

24ol2 

C 

C 

C 

2C261 


20262 


20263 


20264 

C 

C 


C 

C 

201 


CALL RIGHTJ(N( JJ ) ,N1 J1 , BLAKK ,MU,MBER { 10 ) ) 

CALL BCDBIM(M1J1 ,MJJ) 

IF(N;JJ,GToNi\lBIM) GO TO 24010 

finally keep 2026 INSTEAD OF 14010 

KOo SIRo YOU CAN MOT APRIL 18»1969 

CONTINUE 

PAUSE 33333 

ISTKN=?4001 

PRINT 24002, ISTMN 

F0R'4AT{/1H ,*STOPIiMG AFTER PAUSE AT 4,2X,I7/) 
STOP 

IF ( ENTRY ( JJ ,1 ) cEQoLOGUT ) MBR!\!CH=STMNT ( JJ ) 
GOTO 2026 
NBRNCH = ST:v:NT( JJ ) 

GOTO 2026 


EXENT (L»RULE> =LEZ 
EXCUTD( J , 2 ) =BRNCH( J, 1 ) 

GO TO 236 
EXENT(L,RULF)=NEZ 
EXCUTDI J,3)=BRNCH( J,1 ) 

GO TO 235 

EXENT (L,RULE)=GEZ 

iXCUTD { J , 3 ) =bRMCH ( J , 2 ) 

GO TO 235 

EXENT(L,RULE)=ENTRY( J,6) 

THIS IS BEING INSERTED BUT IN CERTAIN CASES IT WILL BE 
MODIFIED AT VARIOUS STAGES 
ERITE(99,305) ENTRY(J,6) 

RE AD (99, 300 ) (BUFFER! IK) ,IK = 1,5) 

IF ( E JFFEr ( 2 ) oEQoAlPPET ( 12 ) o A nD o BUFFER ( 3 ) =EQoAlPBET ( 20 M lO 
/P = l 

IF ( UUFFEr ! 2 ) oEQ cALPtjET ( 12 ) aAND^^uUFFER ( 3 ) . EQcAlPBET ( 5)) 10 

/P = 2 

IF ( uUFFER ( 2 ) »EQcALPi->ET ( 5 ) - AND « BUFF ER { 3 ) o EQ o AlPBET ( 17 M 10 
/P = 3 

IF ( buffer ( 2 ) o LQo A lPUET ( 7 ) o AND o BUFFER ( 3 ) . EQ o ALPBET ( 5*) 10 

/P = 4 

IF { buffer ( 2 ) ^^cQvAlPbcT ( 7 ) » AnD . BUFF ER ( 3 ) « EQ o AlPBET ( 20 > ) lO 
/P = 5 

IF ( dUFFcr ( 2 ) oLQ.AlPuET ( 14) o AND o BUFF L r ( 3 ) =EQ»AlPBET ( 5 > ) lO 
/P = 6 

EXCUTD( J , I )=BRMCH( J, I ) 

BESIDES THE ABOVE CERTAIN OTHER ExCUTD KAY HAVE TO BE 
INSERTFU AT VARIOUS PLACES 
GOTI (201,202,203) , I 

GOTO ( 2045 ,2012 , 2013 , 2014, 20 1E> ,2c 16 ), lOP 
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202 GOTO(20211 ,2022 ,2045 ,20241 ,20251 j20269 ) sIOP 

203 goto ( 203 1, 203 2, 2 033, 2045, 2045, 2n45) ,IOP 
2012 '^XCUTD(J,2)=BRNCH(J,2) 

iOTO 2045 

2012 EXCUTD(J,3)=BR!n1CH( J,3) 

£XENT(L»RULE)=NEZ 
GOTO 2046 

2014 EXENT(L!.RULE)=NEZ 
GOTO 2046 

2015 EXCUTDC J,2)=8RNCH(J,2) 

EXEf T(L»RULE) =LEZ 
GOTO 2046 

2016 EXCUTDC J»3)=BRrMCH( JsS) 

GOTO 2045 

20211 EXCUTD(J,3)=BRNCH( J,3) 

EXE:\!T(L,RULE)=GEZ 
GOTO 2o46 

2022 EXCUTD(J,3)=I3RNCH(J,3) 

GOTO 2045 

20241 EXCUTD( J,3)=BRNCH( J,3) 

GOTO 2045 

20251 EXENT(L,RULE)=LEZ 
C WE should not REACH THIS 

GOTO 2046 

2 )269 £XENT{|.,RULE)=EQZ 
GOTO 2j46 

2031 £XENT(L»RULE)=GEZ 
C WE SHOULD NOT REACH THIS 

GOTO 2046 

2C32 EXENT(L»RULE)=GTZ 
GOTO 2046 

2033 EXENT(L,RULE)=NEZ ’ 

GOTO 2C!46 

C WE SHOULD NOT REACH THIS ' 

C WE should not REACH THIS 

2C +5 WRITE! 99 ,629 96 ) PLUS,I\1(J) 

20451 READ(99,5) L I S T ( lF » RULE ) 

LF=LF+1 
GOTO 235 

20^5 WRITE! 99, 62996) PLUS,M!J+1) 

GOTO 20451 

C THIS IS TO KEEP A REFERENCE MARK IN DT 

245 9>RlNT 24o,L,lRULES 

246 Format ! ih ,*no of rules or no of conditions has exceeded t 

/HE ANTIC 

lIPATED MiAXIMUWi^-/ ,1H ,*N0 OF COND I T I 0NS = -‘':- , I 3 NO OF RULES 

/ = *, I 3/// 

2/2CX,*THE PARTIAL DECISION TABLE IS GIVEN BELOlV*///) 

GOTO 21710 

C PROCESSING FOR IF ENTRY IS OVER 
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: * -A fr «• * r- -j:- ■» -;e * -> * ^ 5 - ^ -x-* -s- ■);- 

PiiOCESSING -FOR STOP STARTS 


^ _y. .%/ jC X. 


* -::■ -X- ;{• ■}<■ -X- -K- -X- * -K- -X * ^ * ^f- ^c- * -x * 


30 


C 

C 

C 

C 

C 

C 


■ -X * -X -X -K- X- -;f * -X- -X- * » ■«■ r- -X * -X- X- * -X- -x- * -x * -x * -;c- * x * x x * x- -x -x x x x x- x x- x x x- x x x x -x x -x * -x x 


RETFRM = PREVl\!0( JJ) 


IF(LNTRY( JJ,1 ) .EQ.STOP) L I ST ( LF , RULE ) =ST0P 
IF ( Entry { JJ,1 ) oEQc RE TURN ) list (LF,RULE)=RETURN 
IF ( IPATH„EQ,1U0 ) L I ST ( LF , RULE ) =SELF 
IF(LFcEQ.O) go to 2 5000 

iNSTtAD Inserted on sesa for testing iterative loops 
mT the present STp'NT OF STOP IS INCLUDED IK LIST 


THE LAST Element has been blanked out because stop has 
BEEN encountered 


25000 IF(LF,LEoLFr) 60 TO 2910 
LFF=LF 

C THIS IS FOR FINAL VAlUE OF LF 

2910 continue 

C KEPT INSTEAD OF 291u LF=LF-1 

LMIN1=L-1 

DO 29 21 L!'-,M = 1 »LMIM1 

2<'21 £XENT(Lr'iN,RUL£ + l)=EXENT( L;TN,RULE) 

FINAl=1 

if(rule«gTo1) Call dtcmtcexent, rule, retfrm,ncrDs, entry »limin 


/1,'_F, 

ICON! SM,PREVNO,LFF, LIST, STiMMT, HEADER) 

C note NOV^ PREVNO IS A LOCAL VARIABLE IN DTEMT 

i F ( RUl EoGTo I o A nDoFInAl vE0o2 ^ CALL DT EnT ( EXEnT , RULE , RETFrm , 
/MCRD, 

IENTRY ,LMINl ,LF ,C0NDSN ,i-iASTER ,LFF , L I ST ,STMNT ,HEADt:R ) 

C 

UPATH=1 

293 CO 253 J3=1,NCRD 

IF ( BCDTAb ( J3 ) .. EQoRETFRM) GOTO 2531 
253 continue 

PAUSE 66666 
I STNN = 2 5 3 
PRINT 2Ago2,ISTMN 
STOP 

2., 30 INITAL = LiUFFFR( 600) 

F0UMD = ;’ULE-1 

C THE ABOVE TWO VARIABLES ARE USED TO ECONOiYOISE IN SPACE 

C only and have NOTHING TO DO WITH INITAL AND FOUND 

DO 253or' K=INITAL, FOUND 
DO 2 5 300 KK=1.,LF 
25^00 LIST(KK,K)=LIST (KKjRULE) 

GOTO 26:0 

C INSERTED MAY 7,1969 

2531 IF ( BUFFER (6Cn ) oNEoRUlE) GOTO 253o 

C 
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2)00 IF ('ENTRY ( J3,l ) ..EQaGOTO) GO TO 26006 
IRULES=RULE 

C if -ff- * if if if if if X- * if * if if if if * -X- if if if -X- if if if if if if if if if if -X- if if if if X- if if if if if if if if * if if if if if if if if if if 

IF(ENTRY( JJ,1 ) oEGcSTOP) RULE=RULE+1 
IF ( EnTRY( JJ,1 ) V, EQcRETURM ) rule=rule+i 
IF ( IPATHoEQolOO ) RUlE=RULE+I 

IF ( EYTRY ( JJ» 1 ) oEObSTOPoORoENTRY ( JJ , 1 ) oEQoRETURNoORo IPATH= E 
^QolOO) LF=1 
2 6000 LMIM1=L-1 

IF ( JPATHoNEo2 ) J=J3 

C FOR JPATH=2s J HAS ALREADY BEEN SET 

26J01 FORMATdH , *EKT RY* , 2 6X » 1 6 ( ^RULE* > I 2 ) ) 

123F-6 F0RMAT(/]H ,5A6 , IX , 16A6/ ) 

26003 FORMATdH ,*GO TO* ,26x d6A6 ) 

GO TO 2010 

c 'X' -X- -'r X- X- ^ X- X' X- X- X- X* X- X- X' -X- X- X- X- -X- X- -X- X- X- X- X- -X- X- X- -x- X- x- X' X- X- X X- X- X X- X -X X X" X X- X X X X X X X- X 

C PORTIONS OF LOGICAL IF TO BE INSERTED 

2090 JPLUS1=J+1 

IF(£NTRY( JPLUSl d 1 oEQoLOGDT) M6RNCH=STF (T( JPLUSl ) 
IF(N(JPLUS1 )oEQo(M(J)+1) ) GO TO 20912 
C IT Cam never be VJITH M(J) as in bCDKODE 

2f'912 JJ = JPLUS1 
GO TO 2026 

C * if if if if if if if if if if if if if * if if if if * if if if if if if if if * if if if * if * * if * * if if * if if if if * if if if if * if * if if * * 

C PROCESSING FOR GOTO STARTS 

270 DO 271 K=l,2 

271 EXCDTDC JJ,I<)=BRNCH( JJ,K) 

C SHALL HAVE TO LOOK INTO IT ..ACTUALLY IF .JE KEEP K = 3 ALSO 

C / IT IS 

C taken AS IF RETUTRNING FRGi/i STOP»AFTER TESTING FOR ExCUTED 

GO TO 240 
C 

C PART PROCESSING OF GO TO ENTRY IS OVER RESR OF IT IS IN IF 

C / BLOCK 

Q -x- if -X- if if if if if if if if if if if if if if if if if if if if if if if if if if if if' > if- if -S- * if * if if if if if if if if * 

26006 RETFRM = PREVi'!0( J3 ) 
jSTMfJ = 2 9 3 
J = J3 

C J=J3 WILL BE USED AT 26000 

1 F ( SU6DT « AMDoRETFRri., EQoBEGIN ) GOTO 260C3 
C THIS IviLL BE USEFUL FOR GETTING CONTINUATION OF DoToS 

GO TO 293 
26008 JPATH=2 

GOTO 26000 

G * if if if if * if if if- if if * * •* * it '^f * * * * * if * * * * * * * * * * * * * * * * * * * * * * * * *■ * * * * * * * 

27u iiBRrCH = STliNT{ J) 

28n r-'OMERG = NOMFRG+l 

lmini=l-i 

DO 284 K=li20 
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BUFF£R(K) =BLANKS 
254 LONGEX (K ) =BLANKS 
,00 285 K = 1 ,L.'v1IiMl 
oUFFER(K)=EXENT(K,RUlE) 

285 LOmGEX(K)=EXENT(K,RUlE) 

BUFFER ( 600 )=RULE 

C SAVE the CURRENT VALUE OF RULESo WILL BE USED FOR 

C ACTION SET 

call herge ( nomErg sMBrnchsl-i smxtbrm j Found »l jNrules jlongex » 

IKRULFS, J ) 

C LOMGcX IS USED TO ECONOMISE In STORAGE o IT HAS SERVED ITS 

C /F;OLE 
C IN PHASE 1 

L = L+1 

RULE=NrULES 

C Lj THE 6 TH ARGUMENT IS THE TOTAL N0» OF UNIQUE CONDITIONS 

C '■■''iET IN MERGE AT RETURN o 

C SIMILARLY NRULES IS TOTAL NOo OF RULES 

C KRULES THE RETURNED VALUE IS USED IN CALLING UNIQUE 

C NOV! THE CURRENT RULE UNDER CONSIDERATION IS 

C RULE = NRULES = TRULE.S 

C OF merge 

c 
c 

GOTO (28u77,28060?2S07n) , FOUND 
C F0UND=1 FOR SUB TABlE ALREADY ACCOUNTED 

C F0UND=2- FOR IFS 

C F0UN0=3 FOR GOTOS 

28c SC HBRNCH=NXTBRN 
GOTO 20-240 

28065 CALL UN I QUE ( LONGEX ,COLS , F I LLED , 1 ) 

C i BECAUSE ONLY 1 LONGEX IS TO BE CONSIDERED 

GOTO 20243 

2«o7o CALL UNIGUEILONGEX jCOLS, FILLED, KRULES) 

C J HAS NOT BEEN TEMPERED WITHo WE WANT TO RETURN THERE 

28n77 DO 2bo78 LMN=l,LMlNl 

28078 EXENT ( LMN,RULE+1 ) =BUFFER (LMN ) 

I P’JLES = RULE 
L I ST ( LF, RULF ) =MBRNCH 

C THIS WILL GIVE HEADER OF SUB TABLE OF GOTO 

23079 IF (EnTrY( J,1 ) oLQoGOTOoAnDoJ.NEoNCrD) GOTO 28550 
LMIN1=L-1 
RULE=RULE+1 

C MUST START THE NE-W RULE NOW 

IF(LFoGToLFF) LFF=LF 
LF = 1 

GOTO 2nlo 

C IF SoSU 04 ON, INTERMEDIATE OUTPUT WILL BE THERE 

C ultimately we HAVE TO KEEP ».GOTO 2010c o INSTEAD OF 20914 

C 20914 WILL PROVIDE INTERMEDIATE OUTPUT 
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i.B500 CONTINUE 

C ULTIMATELY KEEP IT AS IF(JJ.GToJ) GOTO 28511 OG GOTO A3 

C /109 

C TO bt utilized AT 250+.o..o 

IF ( JUcGToJ) GOTO A3109 
IPATH=1C0 
GOTO 250 

C ultimately keep 43109 AT 28501 

2855.') AETFRM=PREVM0( J ) 

DO 28560 U3=l,NCRD 

28560 I F ( DGDTA3 ( J3 ) oEQ.RETFRM ) GOTO 28570 
PAUSE 66666 
ISTMN=28560 
PRINT 24002, I STHN 
STOP 
28570 J= J3 

GOTO 2PJ79 
END 

SIBFTC UNIQUE 

SUBROUTIiNE UN I DUE ( LONGEX » COLS , F I LLED , I RULES ) 
integer LGNGEX(20) ,C0LS(80) , F I LLED , F I RST 

C — 

c 

C THIS SU3 COMPARES ELEMENTS OF LONGEX WITH THOSE 

C OF COLSo ULTIMATELY ONLY ONCE ANY ELEMENT OF LONGEX 

C APPEARS IN COLS. 

C 

IF(FILLED.FQ.o) GOTO 300 
FIRST=1 

5o DO 200 I = FIRST, IRuLES 

DO ICO K=l, FILLED 

IF(L0NGEX{ I ) .EQoCOLS(K) ) GOTO 200 

100 continue 

pilled=filled+i 

:0LS( FlLuFD)=LONGFX ( I ) 

200 CONTINUE 

PRINT 25u , (COLS ( I ) , I = 1 , F I LL ED ) 

format (IH , --CONTENTS OF COLS ARE-;«-/1H ,21A6/) 

RETURN 

SCO C0LS( I ) ^LONGEX ( 1 ) 

FILLFD=1 
FIRI T=2 
GOTO 5n 
END 
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SIfSFTC MERGE NCPRNT 

subroutine M E R G E ( NC-1 Er G , MB R N CH , L L L ♦ N XT BRN , FOUM D , L , T RUL ES > L 
13MGEX,KRJLES,JCURNT ) 

r 

C FEBc ,1969 

C 

INTEGER TRULES ,L0NGEX(20) 

INTEGER PLUS 

INTEGER BEGIN, GOTO, STOP, stars 
INTEGER RETURN 
INTEGER BLANK 

INTEGFR FOUND sELSE sNUMBOZ) 

INTcGEr l>rnCH( 150,3 ) » ComDSN ( 40 , 7 ) , ENTRY! 150,7) ,EXENT (40,40 
/) ,EXCUTD 

1( 15^’93 ) ,N (400 ) ,PREVN0( 150) ,STMNT( 1 50 ) , L I ST ( 40 , 40 ) , RULE, RET 
2,HEmiJ£r{ 1,;!j> ,SUb TAB ,K.LPTRC ( 100) ,C0NENT(10) ,ACTENT(10) ,ENTR 
/YS(7) 

DATA 6i.ANK,PLU5/1H ,2H++/ 

DATA RCTURN/6HRETURN/ 

GON:' CM// BQNCH ,ConDSN ,£NTrY sExENT ,EXCUTD ,.NCrD,N jPREVNO »STM 
/NT, LI ST, 

2LM I Ml ,LF , LFF , I RULES, rule ,RETFRM 
3 , HEADER, SUBTAB, NOSTRO, ENTRYS 


COiMi UN /RULES/ NUMB, ELSE, LOGDT,NOSUBT 
COiMi'.ON/DETAB/ BEG IN, GOTO, STOP , STARS 

(3 + 

C 

C THIS subroutine IS CALLED WHEN AN. ENTRY CORROSPOND I NG TO A 

C subtable IS found IN 8RNCH AND A COR ROSPOND I NG ' coSUB DTo, 

C IN ENTRY(L,1)<. 

C MOMERG IS THE NOc OF TIMES MERGE IS CALLED o 

C KEPTKK IS KEEP TRACK AND AVOIDS DUPLICATION OF 

c subtables 

C 2) SAVES IN time 

C LLL IS THE TOTAL (CURRENT) NO„ OF ROWS ALREADY ASSEMBLED 

C IN DT 

C LL IS THE CURRENT ROW OF DT UNDER QUESTION 

C L IS the mo a OF ROWS AT RETURN FROM SMERGES 

C TRULLS IS similar TO L ABOVE 

C iRULtS IS THE TOTAL MO OF RULES COVERED SO FARo 

C 

^ — 

DO 17 1=1,10 
1"' CO.i'-'EMT ( I ) =6LANK 

IF (NOMERGoFQol ) GOTO 216 
18 I 1IN1 = 1 

DC 100 I=l,NOiMERG 

IF (I 3RNCHoFQoKEPTRC( I ) ) GOTO 250 
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ICo 

C 

200 

210 

216 

2191 

250 

300 


62985 


40 0 

5C0 

62989 

62987 

C 

C 

c 

c 

6^0 

c 

c 

c 

c 

c 

c 


c 

65o 

c 


continue 

THIS Branch has not been sssent fors® before 

DO 200 I =1, NOSUB T 
IF(M8RMCH,EQ, HEADER! I ) ) GOTO 300 
continue 

PRINT 21c,MBRNCH 

FORMAT! //IH s, -^riACH I M E ErrqR I N MERGE ,MBrnCH=;.^ , 2X ,A6// ) 

DO 2191 1=1,100 
KEPTRC! I )=8LANi< 

INMRG=1 
GOTO 18 
FOU!\!D=l 
TRULFS=RULE 
IRULES=RULE 
GOTO 15(iO 

IFIKGToI) IMIN1 = I-1 

RcVJIND 4 

ISAVF=I 

IF ! I .,EQ» 1 ) GOTO 600 
DO 500 K=1,IMIN1 

READ! A,62985) HEADER ( K ) ,NOSTRO,KRULES 
F0RMAT!A5,2I4) 

DO 4C0 L = l , nostro 

READ!4562987) !ENTRYS(J) ,0=1,5) ,!C0NENT(J) ,J=1,KRULES) 
CONTINUE 

READ!4, 62989) ( ACTEMT ( J ) , J= 1 ,KRULES ) 

CONTINUE 

FORMAT ! ■^f’GO TO* , 26x , 16A6 ) 

FORMAT ! 5aS , lx ,16A6 ) 

tape is now located properly 

ready- to read the sub table under question 

RE AD (A, 62985) HEADER! I ) , N6STRO , KRUL ES 
-1 BECAUSE OF $SELSES$ RULE OF SUBTABLES 
IF! NOSTROcNEoi ) I RULE S = RULE+ ! KRUL ES-1 ) -1 


IN Case OF COiMPUTED AND ASSIGNED GOTOS, ■!£ DO NOT HAVE AN 
/ELSE 
RULEo 

I F ( NOSTRO cEOo 1 ) goto 7001 
do 65o 1 = 1, LLL 
DO 65'j ;< = RULE , I rules 
EXENT ! I ,K ) =LONGEX ( I ) 

THIS IS TO carry OVER FROM FOR THE BEGINING OF SUBTABLE 
CONTINUE 

TO GET NEW HULc. ,IRUlES WAS INCREMENTED GIN FORTAB 
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DO 1000 K=l»NOSTRO 

7C01 REAL) (4»62987) ( ENTRYS ( J ) , J = 1 , 5 ) > ( CONENT ( J ) , J= 1 , KRULE5 ) 

IF(M0STR0«EQ»1) GOTO 1001 
DO SCO J=1,LLL 
J1 = J 

DO 760 1=1,5 

C INSERTING FOR TESTING 

IF ( EMTRYS ( I ) oNE oCONDSM ( J , I ) ) GOTO 800 
760 continue 
c 

c A r'/tMTC;iiNG Condition vvHich nas already tuerl has been foun 

C /D 

LL = J 

ipath=io 
goto 900 
8Gu continue 

b50 IPATH=1 
LL=LLL+1 
DO 0 5 5 I = 1 , 5 

855 CONDSN(LL, I )=ENTRYS( I ) 

C 

C THIS IS the case O-F A NEW NEW CONDITION 

C 

LLL=LLL+1 
90C CONTINUE 
MRULE=0 

•DO 870 I=RULE, IRULES 
.'1RULE = MRJLE+1 

370 EXENTILL, I )=CONENT(i-'iRULE) 

1000 CONTINUE 

1001 READIA, 62989 ) ( ACTENT ( J ) , J= 1 , RRULES ) 

IFir.OSTROoEQol) GOTO 1200 

N,<TURN = ACTENT ( 1 ) 

GOTO 12350 

C iNSi RTED ON MAY 2,1969 TO SEE ALTERNATIVE 

C 

2 K'.ni Nl= CPULFS-l 

IF (ACTEMT(l) oEQ=STARS) GOTO 12356 

C ^■■>UST SET IT RIGHT FOR COLS AND LCN6EX 

DO 1234 I=1,MCRD 

IF ( ST'IMT ( I ) oEQ.. aCTlNT (1 ) ) GOTO 12347 
1234 CONTINUE 

C THE ACTION STATLiiLNT oLLOMGS TO TABLE o.Boo AND IS THUS AN 

C / ACTUAL 
C ACTION 

DO 12 346 I=RULE , IRULES 
12346 LIST(LF,n=ACTENT( 1) 

LONGEX ( 1 ) =ACTEMT ( 1 ) 

LF=LF+l 



nooopi ro v-H r>j h-* »— • h-'h-'h-* o <^oo 
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GOTO 123b0 

12347 IF c E ntry ( 1 ,1 ) «eqoSTop ) goto 12354 

IF ( ENTRY( I ,1 ) oEQsRETURM ) goto 12355 

then it must be leading to another if and process must be 
CONTIMUEDc so enter it in longex 
IT could be a coGOTOco ALS6o DOES MOT MATTER 
IF ( ACT ENT ( 1 ) oNEcSTARScAnDoSTMNT ( I ) oNEo BLANK ) LONGEX ( 1 )=AC 
/tent ( 1 ) 

Otherwise it will be taken care by fortab 

IF ( aCtENT ( 1 ) •.NLoSTARSuANDoSTi-iNT ( I ) «NE. BLANK) IGOAL = ACtENT 

/( 1 ) 

2348 DC 12349 I J = RULE , I RULES 

2349 LIGT( LF, I J) =IGOAL 

2350 F0UND=2 
GOTO 1 300 

2354 IG0AL=ST0P 
LONGEX! 1)=C 
GOTO 12348 

2355 IGOAL=RETURM 
LONGEX! 1 )=0 
GOTO 12348 

2356 I=JCUR:JT + 1 
LONGEX! 1 )=0 

WRITE! 99, 23) PLUS,N!n 
3 FORMAT ! A2 ,a3 ) 

READ199,5) IGOAL 
FORMAT !a5) 

DO 235 K=RULE, IRULES 
35 LISTILF»K)=IG0AL 
GOTO 12347 

12 Oi- IS the case of assigned AND COMPUTED GOTO 
other wise TAKE UP SELSE ,G0T0 PREVNO 

IcOC consider- each action in turn SET JJ 

FOR SUBTABLES OF EITHER KIND ,THE NEXT W IS SELECTED 
AFTER RETURNING TO MAIN PROGRAM 
12c 0 FOUND=3 

DO 1225 I=1,KRULES 
12 25 longex ! I ) =ACTENT ! I ) 

C THIS WILL BE USED AFTER RETURNING TO FORTAB 

KEPTRC! I NMRG) =HEa.DER ! I SAVE ) 

IN,-1RG=INMRG + 1 
TRUL£S=RULE 

C incrementing WILL BE DONE IN FORTAB 

GOTO 15D0 

1300 2EPTRC! I NmRG )= HEADER ! ISAVE ) 

I NiMRG = I ME RG+1 
1'’50 TRULES = I RULES 

C TO A/C FOR DECREMENT I NGo MAKE READY FOR NEW STORAGE 

RULE= IRULES 
x5o^''' L = LLl 
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LMir'l = L-l 

return 

END 


5IBFTC CMPL 

C OF uuMOOFlS.o and RETURNS THE ROW NUMBER AS ,oKTHROW.« 

subroutine CMPL (WHICH, exENT» FI RSTC,LASTC, result ) 
Integer Exenti ac,ao) ,result(4o) , which 


integer firstc 

C •» -X- * X- X- X X * X x x- x- x- x x x- x x x x x x x x- x x 
C 

C SUBRIUTINE CMPL RETURNS 

C IN RESULT 

^XXXX-XX »X xxxxxx-xx-xxxxx-xxx-xxx 

DO ICC i=firstc,lastc 
IF( EXENT (WHICH,I ) aEQol ) 
IF ( EXENT ( WHICH, I ) oEOoO) 
core IOC 

150 RESUlT(I)= 0 
GO TO 1^0 
loO RESULT(I)=1 
GO. TO ICO 
loo CONTINUE 
RETURN 
END 


X- X XXX X- X X- X X X X X X X X- X X X X X X K- X X X X- X- X X X X X X 

THE COMPLIMENT OF ooWHICH=o 

X- X X X X- X X X X X X X X X X X X X X X X X X X- X X X X- X X X- X X- X 

GOTO 150 
GOTO 160 


SI..3FTC LO'WEST 

SUBROUTINE L 0 U/ E S T ( K 0 0 F 1 S , K T H R 0 W , F I R S T R , L A S T R ) 
INTEGER N00F1S(32) 

INTEGER FIRSTR 


C X X X X X- X- X- X X X X X- X X X X X X X X X X X- X- X X- X- X X- X- X X- X X- X X- X X- X- X X X X- X X X- X X X- X X X X X X X X X X X X X- 

c 

c LOWEST SUBROUTINE PICKS UP THE «« LOWEST NUMBER OUT OF 

C ELEMENTS 

C 

C X X X X X X -X- X x x x x x x -x x x -x x x- x- x x x x x x x x x x x -x x- x x x x x x x x x- x x x x x x x x x x x x x x x x 
KTHROW=FIRSTR 
LOl..;ST = NOOFlS{FIRSTR) 

NEX‘^R = FIRSTR+1 

DO ItO I=NEXTR 5LASTR 

IF { N00F1S( I ) oGEoLOWST ) GO TO 100 


L0WST = N00F1S( I ) 
1<THR0W = I 
ICO CONTINUE 
return 


FND 
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SIBFTC REPLAC 

SUBROUT INB REPLAC ( WHAT , WHERE ,WH I CH ,F IRSTC s LASTC , PUT , F I RST 
/R»LASTR , 

1N0R0WS!,''^0C0LS ) 

INTEGER FIRSTC,FIRSTR 

Integer where , which, howmny ,what (MORO k!S,NocoLS) , buffer 02 ) > 

/PUT 


integer BUFF2 ( 32 ), dummy ( 540) 

C DUKrV is inserted To economise in SPACEo BUFFER OF sub IS 
C different from BUFFER OF .oSOURCE*. IN MAIN 
COM'' CM /SOURCE/ BUFFER , BUFF2 , DUMMY 


C'^ 

c 

c 

c 

c 

c 

c 

c 

c 

c 


^ Jf'- . 




■ -sc- i;- * -;!■ * -sf * * r- * * % * * -k- * -> ■«• * * * * ^ -k- -;«• * * * * -k- -it -> 45- * -x- * 


SUBROUTINE REPLAC INTERCHANGES TWO ROwSo 

IN array what (LLL,HOWM!\iY) o.WHICHao ROW IS REPLACED IN oo 
WHERE 

RO'W ooWHERE;io IS DUMPED IN ROW o.PUT.o 
EXAMPLE- 

IN EXENTCWHAT), THE KTHROW ( WH I CH ) IS TO REPLACE THE 
T (WHERE) TH ROW oEACH ROW HAVING KRULES ( HOWMN Y ) ELEMENTSo 
THE I TH ROW IS TO BE PUT IN K+1 ST ROW ( . o PUT c » ) o 
SIZE OF bXENT IS NOROWS , MOCOLS 


C 

C * -Yi r<- -x -x- •>> x- x- x * x- x x- x x x x x x x x- x- x x x x x x x 


xx-x 


xxxxxxxxxxxxxxxxxxxxxx 


DO 100 IU=FIRSTC ,LASTC 
100 BUFFER! I U ) =WHAT ( WHERE , I U ) 

DC IU=FIRSTC,LASTC 

200 'WHAT ( where , IU ) =WHAT ( WHI CH , I U ) 

■DO AGO IU=FIRSTC ,LASTC 
400 BUFF2( IU)=WHAT(PUT,IU) 

DO 500 IU=FIRSTC,LASTC 
Son WHAT(WHICH,IU)=BUFF2( IU) 

DO 300 IU=FIRSTC jLASTC 
300 v-iHAT(PUT,IU) = BUFFER( IJ) 

RETURN 

END 

SIBFTC REPCOL 

SUbROUT I Nt RLPCOL ( WhAT , WHERE , WH I CH , F I RSTR , L ASTR , PUT ,FIRSTC 
/,LASTC,M 
1 GROWS, MOCOLS ) 

INTEGER FIRSTR»FIRSTC 

INTLGEp where ,WH ICH,HOVJiMNY ,WHAT ( NOROWS , NOCOLS ) , BUFFER (32 ) s 


/PUT , BUFF 

12( 32) ,C0LS,DUMMY (540) 

C DUHF'Y IS inserted TO ECONOMISE IN SPACEc BUFFER OF SUB IS 

C DIFFERENT FROM BUFFER OF ooSOURCEco IN MAIN 


COMii lOM /SOURCE/ 



BuFFER,BUFF2,DUMiMY 

X Xr X- XXX X X X X X X- X X X X X- X X- X X X X- X X X X X- X X Xr X X X X X X X X X X X- 


SUBROUTINE REPCOL INTERCHANGES TWO COLUMiMS 



n n n n 


1.67 


IN .ARRAY(NOROWS.NOCOlS) o.which^o col= is replaced in o. 

«. a IV i 1 E R E <. o 

CC'_“ ooWHEREoo is dumped in 00 PUT 00 

ooo., .. oFoR Clarifications pl„ see suBo replac 




loo 

2G0 

ago 

500 

300 


x- ■:<- -x- ;{• * -x- * -x- * -x x * x x x x x x x x x x x x x x x x -> 

DO lUO I J=FIRSTR,LASTR 
BUFFER! I J)=WHAT( I J, WHERE) 


k-XcXXXXXX XXXX 


DO 2cn I J=FIRSTR ,LASTR 


i.VHAT ( I J ,WHER£ ) =WHAT ( I J, WHICH) 
DO AOO I J = FIRSTR ,LASTR 
BUFF2( TJ)=WHAT( IJ,PUT) 

DO 5no I J=FIRSTR,LASTR 
WHAT( IJ,WHICH)=BUFF2( IJ ) 

DO 3:;0 I J = FIRSTR.,LASTR 
K'HAT( I J,PUT ) = BUFFER ( I J ) 


RETURN 


'Jr ~)c ^ ^ ^ -Jf -Ji- "Jf -Jc of 


END 

SiBFTC PARSEU 

SUBROUTINE PARSEiM 

integer bRNCH(150,3) , CCMDSN ( AO » 7 ) , ENTRY ( 1 50 , 7 ) »EXENT(AO,AO 


/ ) jEXCUTD 

1 ( 15U<.3 ) »N( 400 ) »PREVN0( 150 ) ,STMNT ( 1 5 0 ) , L I ST ( 40 , 40 ) , RULE, RET 


'FRM 

A » HEADER ( ICO) ,SUBTAB , ENTRYS ( 7 ) 

Integer firstr,firstc,tdtrb,totre,tdtc6,tdtce»ootrb,bdtre, 
lbDTCb,BDTCE,ACTSTB(40,5 ) 

COMFON/SPARSE/NOACTjACTSTB 

C KOACT is no of ACTION STUBSoACTSTB IS FOR ACTION STUB 

C0M':0N//DRMCH,C0NDSM,£MTRY,EXENT,EXCUTD,nCRD,N »prevno »stmn 

/t,list, 

2LIMIN1 ,LF,LFF, IRULES ,RULE ,RETFRM 
3 , HEADER , SUBTAB, NOSTRO, ENTRYS 
READ 10 ,LLL, IRUlES 
10 '^ORUAT ( 3 I 2 ) 

OO 30 J=1,LLL 

READ 20, (COMDSMIJ,! ) , I = 1 , 5 ) , ( EX EN T ( J , I J ) , I J= 1,1 RULES 
/ ) 

PR IMT21 , ( CONDSN ( J, I ) , I = 1 , 5 ) , ( EXEN T ( J , I J ) , I J = 1 , I RULES 
/ ) 


20 F0RMAT{5A3,16A4) 

21 FORMAT (IH ,5A3,16A4) 

30 CON’INUE 

DO 35 J=1,N0ACT 

READ ? J , ( ACT STB (J, I), 1 = 1, 5), (LI ST (J, I), 1 = 1 , 1 RULES) 
3j PRINT21 , ( ACTSTb ( J ,I ), 1 = 1, 5), (LI ST (J, I) , 1 = 1 , IRULES) 
PRINT 50 


6C FORMAT!///) 1 

call parse ( 1 »LLL , 1 , IRUL£S,TDTRB ,tdtre,tdtcb,tdtce ,BDtRB,8D 
1TRE,BDTCB,BDTCE) 

DO 40 J=1,LLL 
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4u ^PRl/'iT21» (CO'>lDSN( J,I ) ,1 = 1,5) » ( EXEfJT ( J , IJ ) ,IJ= 1,1 RULES 

00 41 J=1,N0ACT 

41 DRINT 21 , ( ACTST6 ( J, I ) , 1=1 ,5) , (lisk J, I ) ,1=1, IrulES) 

.^RINT 6C 

EAlL PARSE( uDTRb ,bUTRE,BUTCD ,BL)TCE,TDTRb,TOTRE , TDTCB,TDTCE 
l,DDTRb,BDTRE,buTCB,tJDTCE ) 

DO 30 J=1,LLL 

50 PR I UT21 , ( CONDSN (J,I ) ,1=1,5) , (EXENT(J,IJ) ,IJ=1,IRUL£S 
/ ) 

PRINT 60 

src 

EMD 

fIBFTC PARSF 

SUBl'iOUT I NE PARSE ( F I RSTR ,LASTR , F IRSTC ,LASTC ,TDtRB,tDtrE,tDT 
/C!-J,TDTCE 

l,LDTRB,bDTRE,B0TC5,DDTCE ) 

Integer actstb(40,5) 

Integer F IrSTR,F lRSTC,TDTRB,TDTRt jTDtCB, rOTCE, dDTRB,BUTRE, 
/BDTC8 ,PD 
ITCE 

C 

C FIRSTR= BEG IN I NG OF DT ROW WISE 

C LASTR=END OF DT COL WISE 

C similarly for FIRSTC and LASTC o.Coo standing FOR COLo 

C OTHER ARGUMENTS MEAN 1ST CHARo IS T OR B«oT FOR TOP AND B 

C FOR BCTTo 

C OK SUB D,T«, 

E LAST char is 6 OR E o B FOR BEGIN AND E FOR EnO 

C LAST but one CHAR IS C OR 9 o C FOR COLUMN AND R FOR ROW 

C — ; 

INTEGER Blank ,M00F1S ( 32 ) ,SIM LAR ( 32 ) ,KBAR ( 32 ) , DUMMY { 412 ) ,R 
/EST(32) 

1 , TRACK! 32,1 ) ,BUFF2 ( 32 ) 

c because Buffer is being used to a/c forva no of variables, 

c /HENCE 

c to MAxE For the difference, INSERTING DU,.1MU 

1 NTgOLr E.RNCH (150,3) ,C0NDSM (40,7) , ENTRY (150,7) , EXENT (40 ,40 
/ ) , EXCUTD 

1(13. ,3 ) ,N ( 400 ) ,PREVN0( 150 ) ,STMNT ( 1 50 ) , L I ST ( 40 , 40 ) ,RULE , RET 
/fpm 

2 , HE/«L'LP ( 1 .,.0 > , SUB T AB , KEp TRC ( 1 00 ) , CqN EmT ( ] J ) , AC T EN T ( 1 0 ) , ENTR 
/YS ( 7 ) 

TATA BLA,1K/4h / 

COi-;. UN/ / 3RMCH , COnDSN , EN TR Y , EXEN T , EXCUTD , NCrD , N , PREVNO , STM 
/NT ,LIST , 

elmini ,LF,LFF, IRULES,RULE,RETFRM 

3 , HE ADER ,SUbT A d , NOSTRO, ENTR YS 
C 0 P; .ON/SPARSE/NOACT,ACTSTB 

C CC 'T-,ON /SOURCE/ NOOF IS , S I MLAR , KBAr , R EST , TRACK , BUFF2 , DUMMY 
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C 

C 

C 




L'UMi'iY is 
/EREMT 


inserted to EC0N04IS-E SPACEoBUFFER qF SUB IS DIFF 


From buffer of ooSOUrcEoo in main® 

-X- * x- x x x x x- -x- x- r- x x -x- x x x- -x- x x x x x x x x x x x -x 


xxxxxxxxx-x 


xxx-xxxxxxx-x-x 


C 

C 

C 

c 

c 

c 

c 

c 

c 


PARSE SUBo DOES THE PARSING OF A LARGE CT.LLL iMUST BE 
SPECIFIED- through ARGUMENT LiSToNO OF RULES odRULESoo IS 
LINKED THROUo COMMON BLOCK// o 
LLL IS THE NUMBER OF CONDITIONS IN DToC 

returned VALUE OF FOUND IS ICO FOR PARSING ROSS I DLE ,OTHERW 
/ISE C 


: X X X X X X X x x x x x x x- x x -x i 


H. 'L -'t Pi. Pi. P 


LLL=LASTR-FIRSTR+1 
REWIND -3 
DO 20 1=1,32 
DO 20 J=l,l 
20 TRACK{I,1)=I 

DO 50 1 = 1 ,32 
50 N00FlS(n=0 

DO 100 I=FIRSTR,LASTR 

100 v'iRITE( 3 s 110) {C0N0SN( I , I J ) , I J= 1 , 5 ) , ( EXtNT ( I , I J ) ,I J=FIRSTC, 
/LASTC) 

DO 101 I=1,N0ACT 

101 WRITE! 3,110) ( ACTSTB! I ,I J) , I J=1 , 5 ) , ( L I ST ( I , I J ) , IJ=FIRSTC,L 

/;STC) 

REWIND 3 

C THIS IS TO SAVE DT FOR RESTORING LATER 

110 FORMAT! 5A,6,1X,16A6) 

C INSERT DO LOOP FOR ACTION SET 

CO 200 I=FIRSTR ,LASTR 

OC 200 I j=firstc,lastc 

IF!F KENT! I, IJ) oEQ, BLANK) GOTO 150 
IF ! EXENT ! I , I J ) oNEaBLANK) GOTO 160 
GOTO 2 00 

iPO FXENT ( I , I J) =1 

GOTO 200 

16 J EXENT! I ,I J)=0 

GOTO 200 
200 CONTINUE 

DO 300 I=FIRSTR,LASTR 
DO 300 I J=FIRSTC ,LASTC 

IFtEXENT! I ,IJ) -EQol) MOOFlS!! )=N00F1S! l)+l 
300 CONTINUE 

CALL LOWEST (N00F1S,KTHR0W,F I RSTR,LASTR> 

IFINCOFISIKTHROW ) oEQoOoANDoKTHROWoEQoFIRSTR) GOTO 850 

IF!MOOFlS!KTHROvn oEQoO) GOtOSqI 

IPATH=2 

C TO KEEP TRACK OF DIFFERENT PARTS OF TREE 
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i<=0 

DO ^CO I=FIRSTR,LASTR 

iF( kfo.kthrow) goto aog 

CO 075 I J=FIRSTC,LASTC 
IF(EXENT(KTHROW,IJ)»NEol) GOTO 375 
IF([ XENT( I,IJ)oNEol) GOTO AOO 
375 CONTINUE 

l< = K4-l 

SIM LAR(K)=I 

AOO continue 

N0R0WT=K+1 

C +1 TO ACCOUNT FOR KTHROW 

TDTRB=FIRSTR 
TDTRE=FIRSTR+K+1-1 
BDTRf3 = TDTRE+l 
BDTRE=LASTR 

CALL CMPL( KTHR0W,EXENT,FIRSTC,LASTC,KBAR) 

IJKL=1 

C GET THE COMPLIMENT OF KTH ROW OF DT EXTEiTDED ENTRIESo 

C RETURNFU IS KBARoMOT DT IS AT PRESENT REDUCED TO BOOLEAN 

c matrix 

C BOOLEAN MATRIX 

DO 500 I=FIRSTR,LASTR 
DO 50070 IJ = l,i< 

IF(IoEQ»SIM LAR( IJIoORoIeEQoKTHROW) GOTO 50070 
IJKL=2 

CALL C|V1PL( I »EXcNT,FIRSTC,LASTCsREST) 

70010 FOR'XATI /IH s5A6,16A&) 

DO 50050 I JK=F IRSTC»lASTC 
IF ( KBAR I I Jl< )^-REST ( I JK) oEQoO ) GOTO 50050 
GO TO 500 
5005’':' CONTINUE 
50070 CONTINUE 
GOTO 520 

50C continue 

GO TO 90' 0 
52o CONTINUE 

PRINT 5C,)71 

5C071 FORMAT {//IH ,*PARSING POSSIBLE*//) 

IJKL=3 
1 = 1 

CALL REPLACC ExENT, I , KTHROW , F I RSTC , L ASTC ,X+1 ,F I RSTR , LASTR ,4 
/C,40) 



C ARGL 1ENTS MEAN RESPECT I VELY- 

C EXENT WHAT TO REPLACE loE. ARRAY NAME FROM WHICH TO 

C PICKUP 

C I WHERE TO REPLACE 

C KTHROW which TO REPLACE 

C FIRSTC AND LASTC GIVE THE ELEMENTS OF KTHROW TO BE 

C CONSIDERED 
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K+1 where tO dump I TH ROW 

LLL total size of EXENT I=E ExENT(A0,40) , TO ■ 

HANDLED BY REPLACE 

40*40 IS THE ACTUAL NOo OF ROWS AND ACTUAL NOo OF COLSo 


CALL REPLAC(CONDSN,I *KTHROW, 1 , 5 , K+l , F IRSTR *LASTR , 32 , 7) 

CALL REPI.AC(TRACK, I ,KTHR0W,1 ,1,K+1,FIRSTR,LASTR,3 2,1 ) 

THIS IS TO '<EEP TRACK OF REARRANGED ROWS 
IF KTHROW=l ABOVE TWO CALLS NE'^D NOT BE INSERTED 
KRULES=IRULES 
TJKL=1 

DO 6QC J-1,K 
J1=J+1 
KJ1=K+J+1 
I=SIHLAR( J) 

call REPLAC(C0NDSN,J+1* I ,1 ,5,I<+J+1,FIRSTK,LASTR,32,7) 

CALL REPLAC ( track, J+1, I ,1,1 ,K+J+1 ,FIRSTR,LASTR, 32,1 ) 

C THIS IS TO KEEP TRACK OF REARRANGED ROWS 

CAlI REPLAC(EXENT, J+1, I ,FIRSTC,LASTC,K+J+1 ,F I RSTR , LASTR , 40 
/,40) 

600 continue 

KPLUS1=K+1 
GO TO loco 
10j20 KPLUS1 =k+1 

C NEXT LOOP MAY NOT BE NEEDED AT ALL 

C 

KPLUS2=K+2 
LLLf:Kl = LLL-<K+l ) 

I=KPLUS2 
KJ1 = KJ14-1 

DO 800 J=FIRSTR, LASTR 
DO 800 M=1,K 

IF ( JcEO«KTHROWoORoJoEQoSIMLAR(M) ) GOTO 300 

CALL RuPLAC(CONDSN,KJl,I , 1 , 5 , K+ I +1 , F IRSTR , LASTR , 32 , 7 ) 

call REPLAC ( ExENT ,KJ1 , I , F I RSTC , LAsTC ,K+I +1 ,F I RSTR , LASTR , 40 

/,40) 

CALL REP L AC ( track, KJ 1 , I , 1 , 1 , K+l +1 , F I RSTR ,LASTR , 3 2 , 1 ) 
KJ1=KJ1+1 
1 = 1+1 

800 CONTINUE 
1000 CONTINUE 

C AT THIS STAGE THE CHANGED BOOLEAN DT IS AVAILABLE 

C THE ORIGINAL IS TO OBTAINED FROh NOW BY READJUSTMENT 

KRULES=L/>STC-FIRSTC + 1 + 5 
DO 2cno I=FIRSTR, LASTR 

read (3, 110 ) ( dummy ( I J) , IJ = 1,5 ) , ( DUMMY ( IJ) ,IJ = 6 >KRULEs > 

DO 25qoIJK=FIRSTR, LASTR 
ITJ=TRACK( IJK,1 ) 
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IF( I cEQ«.TRACK( IJK,1 ) ) GOTO 2600 
2500 COMTINUE 

ISTEN=2500 
PRINT 2510,ISTMN 

2510 F0R 'IAT(//1H ,*!V|ACHINE- error ^-, 15 ) 

STOP 

2600 DO 2650 I J=F I RSTC ,LASTC 

IF(EXEMT (IJK,IJ),EQo 1) GOTO 2670 
IFcrxEMT- (Ij;<,ij)cEQoO) GOTO 2680 
IST!'.N=26C:..; 

PRINT 25lO?ISTiMN 
STOP 

2670 EXENT ( UK » I J ) =BLANK 
GOTO 2650 

2680 EXENT ( UK , IJ ) =DUfv’.MY ( I J+5 ) 

2650 CONTINUE 
2000 CONTINUE 

KPLUS=FIRSTR+(K+1 )-l 

NOROWB=LLL-NOROWT 

TF( IPATHoEQul ) GOTO 3350 

C SKIP THE NEXT FEW STEPS BECAUSE SIZE OF TOP DT IS ALREADY 

C /KNOWN 
C FOR PATH 1 

M=1 

MN = 0 

C GET SIZE OF TOP LEFT SUB DTo 

C NO. OF ROWS IS already K'NiOWN TO BE KPLUSl =NOROVJT 

DO 3300 I=FIRSTC,LASTC 
DO 32oo J=FIRSTR ,KPLUS 
IF(EXFnT( J,I) oi^E.BLANK) G6TO 3300 
3200 CONTINUE 
NN=NN+1 
SIMLAR(M)=I 

fvj — Yt-t- 1 

3300 CONTINUE 
3330 CONTINUE 
NOCOLT=MN 

C r OCOLB=IRULES-NOCOLT 

noculr=lastc~firstc+i-nocolt 
IF ( IPATH oFQol ) GOTO 35ol 
C NO I'lEED OF SHIFTING THE COLS» FOR PATH 1 

NPLUS1=NN+1 
IL = 1 

IR=NPLUS1 

C IL IS THE CURRENT ROW ON THE LEFT WHICH VAN BE FILLED UP» 

C /IR IS ON 
C THE RIGHT 

DO 3500 I J=FIRSTC»LASTC 
DO 3600 UK=1pNN 
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IF( IJ.EQoSIMLAR( UK) ) GOTO 3500 

3^--oo continue 

GOTO 3A50 
0470, IL=IL+1 

GOTO 3500 

3450 IF(IJoEQol) GOTO 3470 

DONOT OISTURB THE FIRST COLUMN IF IT BELONGS TO TOP LEFT S 
/UB DT 

CALL REPCOLIEXENT ,IL,I J,FIRSTR,LASTR,IR,FIRSTC,LASTC,40,40 
/) 

THIS IS TO REPLACE THE COLSo NOTE REPLAC IS FOR ooR0WS«, A 
/ND 

REPCOL IS FOR ooCOLUMNSoo 

CALL REPCOL(LIST, IL, I J,1,LFF,IR ,FIRSTC ,LASTC,40 ,32 ) 

INSERT XXX 

INSERT FOR ACTION ENTRIES 
LIST CAN BE USED INSTEAD OF ACTENT 
IR=IR+T 
GO TO J470 

3500 continue 
TDTCB=FIRSTC 
TDTCE=FIRSTC+NN-1 
BDTCB=TDTCE+1 
aDTrE=LASTC 

3501 continue 

C iNStRT FOR getting THE CHANGED DT 

FOUND=l:;C 
RETURN 

8Ci CALL REPLAClEXuNT , F I RSTR , KTHROW , F I RSTC , L ASTC , KTHROV^ , F I RST 
1R,LASTR,^'0,40) 

CALL REPLAC ( TRACK ,F I RSTR ,KTHROu ,1,1 , KtHROw ,F I RSTR , LASTR ,32 
/>! ) 

CALL REP LAC ( CONDSN, F I RSTR , KTHROW, FIRST C,LASTC, KTHROW, first 
IR, LASTR, 32, 7) 

t5o tdtrb=firstr . 

rDTRE=FIRSTR 

TDTCB=FIPSTC 

TDTCE=LASTC 

ODTRb=FIRSTR+l 

BDTRr=LASTR 

EOTCa=FIRSTC 

aDTCE=LASTC 

NlM = l \STC-FIRSTC + 1 

KPLUS1=1 

IPATH=1 

C TO KEEP TRACK OF DIFFERENT PARTS OF THE TREE 

NOROWT=l 
,< = 1 
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GOTO I'^OO 

9 JO print ;io 

910 F0R'1AT(//1H s*PARSING NOT 70SSIBLE*// > 

FOUND=0 

RETURN 

END 

SIuFT-^ GETENT NO^RNT 

SUBROUTINE GETENT ( ENTRYS > MAXNOP ) 

INTEGER BUFFER(600) ,ENTRYS(2G) , F INAL ,FARMAT ( 5 ) ,FULWR4,RIG 
/HTP, 

lRERiAIM!.iTAXNOP»UPLIMT,UPTO ,UMPAIR 
INTEGER FOUND 

l»ATA lEFTp jRIGHTP jFARMAT ( 1 ) j farm AT ( 3 ) jFArmAT (5)/1H{ 


c 

c 

'w 

c 

c 

c 

c * 
c 


200 


15 J 


no 


5 )0 

c 


600 


CFAR 


/ ( ,4HA6 ,A 
1,1H)/ 

COM! lOM /SOURCE/ BuFFhR,FOUND, INI TAL ,F INAL >JPL I MT 


^ ^ ^ -js- -x- * -x * x * * * * x x x x x x- x x x x x x x x x x x x x x x x x- x x x x x x x 

THIS subroutine IS TO BE USED FOR IPS AND COMPUTED GOTOS 
TO get the character set within THE MATCHING PARANTHISiS 
THAT IS V. ell formed EXPRESS I ONS o I T ASSUMES THAT LAST 
CHARACTER encountered IS A { AND THE mEXT CH. OF SUFFER 
IS at INITALo WHEN RETURNING LAST CHARACTER IS AT FINAL 
) OF EXPRESSION) 

FOUND WILL BE USEFUL FOR CONTINUATION CARDS OF IF 

X- X X X X X X X X x x- X X- X X X- X X- X X X X X- X- X- X X X X- X X X- X X- X X X X X X X X X X X X X X X X X X X X X X X 


MAXr 0P = 1 
UNPAIR=1 

UPT0=T 4ITAL+UPL IMT-1 

DO 100 I=INITAL,UPT0 

IF(BUFFER( I ) oEQ.LEFTP) GO TO 150 

IF ( BUFFER ( I ) oEQoRICHTP )UNPAIR=UNPAIR-1 

IFCJNPAIRoEOn) GO TO 500 

CO TO 100 

UNpAlR=UNPAIR+l 

I F ( IM A X ; 1 0 P o L T o U f PAIR) i-'l A X N 6 P = U N P A I R 

GO TO 20C 

CONTINUE 

FOUND=0 

RETURN 

i<.= I-INTTAL 

HERE WE DONOT HAVE TO ADD 1 TO GET PROPER K 
FINAL=I-1 

WRITE(99 »6C0' (BUFFER! I ) ,I = INITAL ,FINAL) 
FORMAT (80A1) 

FULwRD-lC/6 
KEM.^ I N = K~FULWRD*6 
CALL BI NBCD(FULV«IRD,FARMAT (2) ) 
call BI m6CD{rEmAIN?FARMAT (4) ) 
mat F0RMAT(14A6»A4) EXAMPLE 

IF ( REHAI NUGT <.0 ) FULV.IRD=FULWRD+ 1 
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RE ^U(99»FARHAT) ( ENTR YS ( KK ) » KK= 1 , FULWRD ) 

Four :)=ioo 

RETURN 

END 

SIBFTC RIGHTJ 

SUBROUTINE R I GHt J ( SENT , SENtB ,CHARR , CHAR I ) 

C sent should be left justified before being sent to RIGHTJ 

integer SENT,SENTB,CHARR,CHARI ,BuFFER(6 ) ,BUFF2(6) 

WRITE (99, 6) sent 
6 FORMAT (A6) 

READ(99»61) BUFF2 
61 FORMAT (6A1) 

K=0 

DO 200 1=1,6 

lF{iiUFF2( I )oEQoCHARR) GOTO 250 
GOTO 2oj 
250 K=K+1 

C K GIVES THE MO OF CHARACTERS TO BE REMOVED 

200 CONTINUE 

NOCHRT=6-K 

C ■ NOCHRT IS NO OF CHARo TO BE RETAINED 
DO 2 00 1 = 1 , K 
100 BUFFER( I )=CHARI 

DO 300 1=1, NOCHRT 
ki=k:+i 

300 BUFFER(KI )=BUFF2( I ) 

'v\!RITE(99,61) BUFFER 
READ(99,f) SENTS 
RETURN 
END 

SIE-TC SEOUNC NOPRNT , DECK 

SUBROUT I ME SEOUNC ( LI ST ,M , JPREV ) 
integer BUFFER (600) jL 1ST (20 I ,DLIHTR(10> 

I NTEGER FOUND , F I NAL . UPL I MT 

DATA OLU'TR /iHo ,lH( ,1H ) ,1H , ,1H= , 1H*,1H-,1H+, IH/ , IH / 

COlMf, ON/SOURCE/bUFFER, FOUND, INI TAL ,FINAL,UPLIMT 

c From efficency point of view delimeters should be arranged 

C IN THE sequence OF THEIR ORDER OF OCCURAJCE 

C For a GIVEN BUFFER IT WILL GIVE US 

C For a given buffer it will give us the list of delimeters 

C that appear between COLSo 7-72 FROM LEFT TO RIGHToON ADHOC 

C basis THE TOTAL NOo OF DELIMITERS IS TAKEN AS 30 WHICH 

C WILL FORM LIST 

DO 20 1=1,20 
20 LIST(I)=0 

KK=INITAL 
M = 1 

50 DO Ion K=KI<, JPREV 

DO 100 J=l,9 

IF{UUFFER(K) oEQoDLIMTR( J) ) GO TO 200 
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IF{oUFFER(K) .EQ oDLIMTR( 10) ) GOTO 4C0 
IF(Ri^GTo20) GO TO 300 

100 continue 

IF(M.GE.2) goto 400 
RETURN 
C 

400 H=M-1 

RETURN 

200 LIST(M)=DLIMTR ( J ) 

M = M+1 
XK = I<+1 
GO TO 50 
3'^n PRINT 350 

31^0 FORf,AT(/lH ,*N0 OF DELIMITERS HAS EXCEEDED THE STIPULATED 
INUMBf^R OF 20 */) 

RETURN 

end 

SIBFTC Blf'KD NODECK , NOPRNT 

SUBROUTINE BINUCD { BI NNO , EQBCD ) 

C SUb FOR CONVERTING BINNC TO BCDNO*^!-***^!-^ 

INTEGER 3INN0»EQBCD 
^ DATA laXlO/OlOConoOOOOO / 

data 18X2,18X4 , 18X6,13X3/0100,010000,01000000,0100000000/ 
£QBCD=m 0D(BINN0, lOOCOO ) /10000*I 8X8+M0D( BINNO, lOOCO) /1000*I 
/&X6 + 

1 MOD ( B I MNO , 1000 ) / 100* I 8X4+40D ( 6 I NNO , 100 ) / 10*1 8X2+M0D ( 6 1 MNO 

/,10) 

2 + M 0 D ( B I N N 0 , 1 0 0 0 0 0 0 )/ 1 0 C 0 0 0 * I 8 X 1 0 
RETUi-^N 

END 

SIBFTC REi-LBL NOPRNT 

SUBROUTINE REMLBL ( STMMT ,CHAR ) 

INTEGEii STMNT ,COLS( 6 ) ,BLA5i<,BUFFER(6 ) ,CriAR 
DATA BLANK/IH / 

C THIS SUBROUTINE REMOVES THE SUPERFLUOUS CHARACTERS ON THE. 

C LEFT 

C IT LEFT JUSTIFIES A QUANTITY 

DO 50 1=1,6 
5o BUFFER ( I ) =BLANK 

WR I TF ( 99 , loo ) STMNT 
ICO FORMAT (A6) 

READ(99,15n) COLS 
150 FORMAT (6A1) 

DO 200 J=l,6 

IF ( COLS( I ) .ME «CHAR ) GO TO 30C 
200 CONTINUE 

STOP 

3C0 KFINAL=6-I+1 

DO 400 K=1,K.FINAL 
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OUFFER(K)=COLS( I ) 

1 = 1 + 1 

^ )0 CONTINUE 

WRITE(09, 150) BUFFER 
READ(99,1C0) STMNT 
RETURN 
END 

SIRFTC GETCON iMOPRNT 

SUBFOUTINE GETCON ( NA\ME , KK ) 

Integer buffer ( 60o ) > inital»final»uplimt»upto?namE(kk) ,farm 

lAT ( 5 ) jFULWRDs REMAIN 

integer blanks 

COMMON /SOURCE/BUFFER, FOUND, I N I TAL , F I NAL ,UPL I MT 
DATA FapmAT ( 1 ) s FARMAT ( 3 ) jFARmAT ( 5 ) /1H ( ,A-HA6 ,A, iH ) / 

DATA BLANKS/5H / 

DO 200 K=1,KK 
200 MAME(K)=BLA'1KS 

UPTO=INITAL+UPLIHT-l 

WRITE (99, 300) ( BUFFER ( I ) , I = I N I TAL , UPTO ) 

300 P0RMAT(80A1) 

rULWRD=UPLIMT/6 

kemain=uplimt-fulwrd*6 

call BINBCD(FULWRD,FAR.MAT(2 ) ) 

CALL BINDCD(REMAIN,FAPMAT(A-) ) 

IF ( REMAI N »NE<, 0 ) FULWRD=FULWRD+1 
READ( 99 »FARMAT ) ( NAHE { K ) ,K=1 ,FULWRD) 

RETURN 

END 

SIBFTC SQUEZE NOPRNT 

SUBROUTINE SQUEZE( COLS , JPREV ) 

integer C0LS(80) ,BUFFER(600) , blank, DATA, FORMAT, D,F 
INTEGER FOUND 

UATA Blank, data, Format ,D,F/ lH ,AHDATA,6hF0RMAT, IHD ,1HF/ 
com: ••CN/ SOURCE/ BUFFER , FOUND , I N I T AL , F I NAL , UPL I MT 
100 FORMAT (8UA1) 

IF ( FOUND oEQoO ) GO TO 200 

C while entering SQUEZE FOUND IS 100 ONLY IF ViE ARE DEALING 

C V;iTH A CO TIMUATION CARD 

J = JPl^EV+1 
GO TO 250 
200 J=7+JPREV 

DO 111 IJK=1,80 

1x1 BUFFER ( I J1<)=BLANK 
250 JSTART=J 

DO 1Q211 1=7,72 

IF (COLS( I ) oEQoBLANK) GO TO lo211 
BUFFER( J) =COLS( I ) 

J = J+1 

IF ( ( Buffer (7 ) oEQoDoAnDu J oGTo 10 ) oORo ( B uFFER(7 ) oEQoFo ANDo joG 
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IT. 12 ) ) goto 10200 
GO TO 10211 

10200 IF(bUFFER(7)cEQoD) GO TO lo2ol 
K=ir 

GO 10 10202 

10201 K=in 

10202 wRITE(99, 10203) ( BUFFER ( KK ), KK = 7 , K ) 

iC203 FORMAT (6A1) 

READ( 99, 1020A ) IDATA 
1C2CA FORMAT (A4) 

IF( IDATAoEQ^DATA) GO TO 10213 
READ( 99, 10205) IFORMT 
10205 FORMAT (A 6) 

IF( IFORMTcEQuFORMAT) go TO 10213 
10211 CONTINUE 
FOUND=loO 


JPREV=J-1 

1)212 FORMAT! iH ,72Al) 
RETURN 

10213 FOU''ID = 0 


RETURN 

END 

SIBFTC PUTRRN NOPRNT 

SUBROUTINE PUTBRN (OPRATR ,G0AL jBRNCHI ,BRNCH2, BRNCH3 , N) 

C . r K- -Ji- X- -K- -X- -X- -x- X- -X- -X' -X- -X- -Xr -X- -X- X* -X- x- <- oc -X- -X- -X- -)f -X- X- -X- -X- -X- -X- ^ -X- -X- oX- if ^ ^ -X- if 

c 

c 

C THIS SUBROUTINE PUTS THE PROPER VALUE If'C BRANCHES 

C 

c 

C ^5- -;!■ * -Jr * -:!■ -- -x- -x- * -x- a- -x * -x- * -x- » * -x- * x- x- x- x- x- x x- -x -x -x- x x- -x- -x- -x- x x x- x x- x- x -x- x x x x x x x x x x- x 

INTEGER BUFFER (600) 


I INTEGER FOUND , F I NAL , UPL I MT 
INTEGER ORR,ANDD,MOTT 

INTEuEr opr ATR , goal, oRNCHi,dRNCH 2 ,bRNCH3 ,LEZ , LTZ , EQZ ,G£Z ,G 


irZjNEZsSTARS 

UATrt LEZ , LTZ, EQZ ,G£Z,NEZ, STARS, GTZ/ 

1 AH^LEo , AH.lt . ,AHoEG. 9AH0GE0 ,AHoNE. ,5HXXX/CX ,AHoGT u/ 


c 


data 0RR5AMDD,N0TT/AHo0R. ,5HoAMD. ,5HoNCT./ 

NOTE THAT AMD NOT ETC ARE ALL A CHARACTERS LONG 
C ON ' CM /SOUPCE/BUFFER , found , I NI TAL ,F INAL , UPLIIMT 


IFfOPRATRoEQ.LFZ ) 
IF(C^RATR.EQ.LTZ) 
IF (UPRATR.FQoEQZ ) 
IF(CPPATRoEQ.GEZ) 
IF(OPRATRcEQoGTZ ) 
IF (OPRATRoFO.MEZ ) 
IF(UPRATRcEQ.0RR1 
IF(OPRATRoEQcNOTT ) 
IF(CPRATRoEQ.ANDD) 


GO TO 512 
GO TO 510 
GO TO 520 
GO TO 523 
GO TO 53u 
GO TO 513 
GOTOAOO 
GO TO A50 
GO TO A7o 
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F0UND=4 

500 CONTINUE 
RETURN 

A.)0 FOUND = ? 

FOUND IS respectively 1 FOR AND, 2 FOR OR, 3 FOR NOT AND 
A FOR ILLEGAL OPCODE 
FOUND IS ICO FOR RELATIONAL OPS 
GOTCSon 

ASo FOUNO=3 
GOTC5C0 
A70 FOUND=l 
GOT0500 

510 3RMCH1=G0AL 
BRNCH2=STARS 
BRNCH3=STARS 
GO TO 78 G 

512 DRNCH1=G0AL 
3RNCH2=GOAL 
bRNGH3=STARS 
GO TO 780 

513 DRNCH1=G0AL 
jRNCH3=GOAL 
BRNCH2=STARS 
GO TO 780 

5?0 dRNCH2=GOAL 
0RNCH1=STARS 
LRNCH3=STARS 
GC TG 780 

523 BRNr-|2 = G0AL 
!3RNCH3 = G0AL 
BRMCHI =STARS 
60 TO 780 

530 P.RNCH3 = 60AL 

BRNCH2=STARS 
HRNCH1=STARS 
CO TO 780 

78 ) FOUND=1oo 
RETURN 
END 

‘TIBFTC search NOPRMT 

SUbROUT I N E search ( Dl I M I T ,PRE vCH , KK , 0 BTA I N ) 

IMTLGER buffer ( 600) , DL IN I T , F I N AL ,ObTA I K , PREVCH { RK ) ,FARMAT 


/ (3) 

INTEGER PERIOD 

INTEGER FOUND sUPLiMT ,UPTO 

COPh ON/SOURCE /BUFFER , FOUND , I N I T AL , F I NAL , JPL I MT 
DATA farm AT { I ) , FARM AT (3)/2Fl(A»lH)/ 


DATA PERIOD/lHo/ 


~x- ^ -X- -X- -X- -x- -X- -X- -Sf -x- -x- 


^ -v. Yc -)f- -Jc X' X- X- 7f X- X- X* -A X- X- X" X- X' X- X- X- X’ -Jf" X" X- -X- X- X- X- -Jf X- X- X 


C X- -ve X- -X 
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IF 


C b3FD FOR GETTING AND SEPARATING FOR EXAMPLE GOAL OF AN 

C OP bRANCH OF AN IF*. INITAL IS THE VALUE OF BUFFER AT 

C SEAT EH STARTS FOR GETTING OBTAIN, FINAL WHEN OBTAINED. 

C PREVCH CAN >FOR EXAMPLE BE ONLY NUMBERS IN GOAL OF GOTO 

C IT DOES NOT SEARCH FOR VIRTUAL DELIMITERS 

C -(■ -x'- -X- -X- -X- ^ -jx ■» -X- if- * * -:>■ # * * -x- # * * -K- -x x -x- xxxxxx x * x x x x x x x x x xxxxxxxxxxxxxxxxx x 

UPT0=INITAL+UPLIMT-1 
DO loo I=INITAL,UPT0 
DO loo JK=1,KK 

IF { buffer (I ) ^EQoPrEVCH( JK) .AnDo BUFFER ( I + i ) o £ q . Dl IM I T > GO 
/TO 2nn 

IF IdUFFEri I ) . EQ. p ER I OD. AMD f. BUFFER { 1 + 1 ) . Eq. Ol I M I T 3 G0T0200 

100 continue 
FOUND=0 


obtain=o 

return 

2)0 K=I-INTTAL+1 
FOUND=xOO 
FIN^L=I 

WRITE( 99,25 03 (BUFFER (I ) , I = I N I TAL , F I NAL 3 
250 F0RMAT(6A13 

CALL BINBCD(K,FARMAT(2) ) 

READ (99,FARMAT3 OBTAIN 
CFAR^,^T FORMAT (AN 3 
RETURN 
END 

SIBFTC BCD3IN NODECK , NOPRNT 

SUBROUTINE BCDls I N ( BCDNO , B I NNO ) 

C SUBo FOR CONVERTING BCD NUMER TO BINARY 

C ilOTE that BCDNO MUST NOT CO.mTAIN BLANKS IN THE BYTE 

C BLANKS ARE TAKEN AS 60 

INTEGER BCDNO, B I NNO 

data I8X2 , 18XA, I 8X6, I 8X8 /Ol ( jO ,0 1 0090 ,01C .30000 ,0100000000/ 

B I NNO = BCDno/ I8X8^-1 OOOO+MOD ( BCDNO , 18X83/ 1 8X5*1000+M00 ( BCDNO 


/, 18X63/ 

1 1 8 XA^«-1 00+ -lOD ( BCDNO , I 8X4 )/ 1 8X2*1 0 +MOD ( BCDNO ,18X2 3 
RETURN 


END 


SIBFTC NODLMT NOPRNT 

S JBROUTI ME NODLMT {NXTQAN,KK , PREVCH, KL, OBTAIN) 

iNTtGER BUFFER(600) , F I NAL , FARMAT ( 3 3 ,NXTGAN(KK) ,PREVCH(KL) , 


/OBTO IN 

INTEGER FOUND, UPLIMT,UPT0 

COMMON /SOURCE /B UF FER , FOUND , I N I T AL , F I NAL , UPL I MT 
DATA FARMAT( 1 ) ,FARMAT (3 )/2H(A,lH)/ 



■Jc -X- -x- ■ 


■ -/f -X- -X- ^ "X- -X- 7r -X- -X- -X- X- X" X- X- X- -/^ i 


■ 7\* ~A' "r ■>,- 7\~ -/C * 


THIS subroutine SEARCHES FOR A QUQNTITY OBTAIN WHICH 
IS FOLLOWED BY A CHARACTER CAN FORM A SET OF CHARACTERS 


AND NOT A SINGLE CHARACTER » 

EXA.MPLE- AFTER RANGE IN DO , INDEX CAN OilLY 
LHARACtERo FOUND IF SEARCH IS SUCESSFUL, IF 


ALPHABETIC 
NOT 0» 


. .v_ .jc ^ .X- -X- X' X- X- -X- Xr X- X- X' X- -X X- -rX- X- X- X- X- X- X- X- X- X X- X- X- X- X- X- X X X X- X X X X X X- X- X X X X- X- X X- X- X- X X X- X X- 
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UPTO=INI TAL+UPLlMT-1 
DO 100 j=inital,upto 
DO 100 JKL = 1»I<L 
DO loo JK'<=1»KK 

IF ( uUFFER( I ) aEQ«PREVCH( JKL) ^ a.mD ^ BUFFER ( 1 + 1 1 c EQo NXTQAN ( JKK ) 
1) GOTO 200 
loo CONTINUE 
JBTAIN=0 
FOUND=0 
RETURN 

2f'0 K=I-rNlTAL +1 

FINAL^I 
F0UND=100 

WPrrE(99»250) (BUFFERd ) ,I = INITAL, FINAL) 

CALI BINBCD(K»FARiMAT(2 ) ) 

READ (99,FARMAT) OBTAIN 
C'^ARN'AT FCF4AT(AN) 

200 FORMAT ( 6 Al) 

RETURN 

END 

SIBFTC BLOCK NOPRNT 
BLOCK DATA 
INTEGER ELSE 
INTEGER NUMB(32) 

INTEGER BEGIN, GOTO, STARS»ST0P 
COMi'OM /RULES/ NUMB, ELSE, LOGDT,NOSUBT 
C 0 M M C N / D E T A B / B E G I N , G 0 T 0 , S T 0 P , S T A R S 

DATA BEGIN, STOP, GOTO, STARS/5HBEGIM,6HSTCP ,6HG0T0 ♦SHXXX 
/XX/ 

COivii lO!\/OPS/LTZ,LEZ,EQZ,GEZ ,GTZ,NEZ 
C KEEP A SIMILAR CARD IN PUTBRN AND BLOCK 

DATA NUMB/ 1,2, 3, 4, 5, 6, 7,8, 9, 10, 11, 12, 13, 14,15,16,17,18,19 
120,21 ,22 ,23,24,25,26,27,28 ,29,30,31,32/ ,L0GDT/6HSUB DT/ 
2ELSE/4HELSE/ 

END 

SIBFl^ DTENT NOPRNT 

SUBROUTINE DTENT { EXEMT , RULE , RETFR?/ , NCRD , ENTRY , LM I N1 ,LF ,C0N 
/DSN, 

1PREVN0,LFF,LIST ,STMNT, HEADER ) 

C PREVMO IS MOW A LOCAL VARIABLE 

Integer savert,bcdtab(4oo) , found, final, uplimt ,dummy(48o> ,r 
/ETURM, 

lbEGlN,DUFcNT(4D ) ,C0NDSN(40,7 ),ENTRY(150,7 ) jExENT ( 40,40 >, PR 
/EVNO( 150 

2 5 ,RULE,RETFRM , STOP , blanks ,BUFL ST (40) , GOTO, STARS, LIST (40, 4 

/O) , EXTRA 

1(40) ,NUM3(32) , ELSE , STMNT ( j. 50 ) ,HEADER(lOC) ,GONENT( 10) ,ACTEN 
/T( 10 ) , 

3ENTRYS(7) 

C EXTRA WILL BE USED IN CASE OF LOOPING 


nno nonn o. on 
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COMMON/RULES/NUMB,ELSE»LOGDT,NOSUBT 
DATA RETURN/6HRETURN/ 
uATA dlAnkS/SH / 

fimal has no special imeanisg herEoIt is jsed to economise 

IN SPACEeTHlS Is A POINTER USED IN PHAsEl- AND THE sA,M£ HAS 
BEEN UoED IN PHASE2 

COM'-'CN/SOURCE/buFENT » BUFLST » EXTRA , DUMMY »F0U.MD , I N I TAL , F I nAL 
/jUPLIMT 

equivalence ( mo RNCH, dummy (430 ) ) , ( CONENT ( 1 ) j DUMMY ( 1 ) ) , (ACTE 
/NT ( 1 ) , 

DUI'MY ( 11 ) F> ( ENTRYSI 1 ) , DUMMY (21 > ) » ( IMINI , DUMMY ( 28 ) ) » ( NOSTR 


/O, DUMMY 

2(29) ) , (KRULESs DUMMY ( 30 ) ) 

COMMON /DE TAB/BEG IN, GOTO, STOP , STARS 
COMMON /LOOKUP /BCDTAB 

i;- -X- * -X- * * X- * K- -JS- X- -X- if- if- itr if- -X- if- X- ifr if- if if- if- if- -X- if- -X- -X- if if if if if if a- 


if -,f if if if if ff if if if if if if if if if if if if 


THIS HELPS IN GETTING THE ENTRY FqR THE NEXT RULE 


SAV£RT=RETFRM 

LFRET=LF 


■1UST SAVE 

if if if if -if -if if if a- 


and then RESTORE BEFORE RETURN 


X- if * if if -if if -if X- -X- -K- * if -if if if if if ifif if if -X- -X- -X- if -X- ifif-ifif-tfif»ifififififif^itififififififif 


ITER=0 

C FINAL IS 1 IN the CASE OF A NORMAL CARD, IS 2 IF LOOPING 

IF (RETFRMoEQoO ) GOTO 3002 
D1 ICO LJK=1,LMIN1 
EXTRA (LJK)=EXENT (LJK,RULE) 

BUFF 1T(LJI<)=EXENT(LJK,RULE) 

100 EXENr(LJK,RULE)=BLANKS 
293 DO 253 J3=1,NCRD 
iret=retfrm 

IF( ITERo6T.(NCRD+l ) ) GOTO 3000 
IF(RFTFRMioEQoBCDTAr-S( J3 ) ) GO TO 2531 
253 CONTINUE 

PAUSE 66660 
STOP 

2531 CONTINUE 

ITER=ITER+1 
25b J=J3 

LF=LF-1 

IF(ENTRY( J,l) o£QoSTOP<,OReENTRY( J,l) oEQ^GOTO) GO TO 2352 
IF(£NTPY(J,1) «EQ. RETURN) GOTO 2352 
IF(ENTrY(J,1) oEQcLOGDT) GOTO 23A9 
DO 2350 LJK=1,LMIN1 
DO 23501 IJK=1,7 

IF(ENTrY( J,IJK) oNEo CONDSNILJKjI JK) ) GO TO 2350 
23501 CONTINUE 
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GO TO 233 i 

rewind ^ 

;'';BRMCH = STIviNT( J ) 
no 200 I=l>NOSUBT 
Ir (riBRNCH.EQcHEADERI I ) ) GOTO 300 
200 CONTINUE 

PRIf T 210 jMBRNCH 

210 FORi'-iATdH ^MACHINE ERROR IN DTENT , MBRNCri=* ,A10 ) 

STOP 

300 IF(dGTol) IMIN1 = I-1 
IF( KEQol) GOTO 600 
DO 300 K=1,IMIN1 

READ(4, 62985) HEADER(K) , NOSTRO , KRULES 
62985 FORMAT (A5,2I A) 

DO 400 L=l, NOSTRO 

READ(A, 62987) ( ENTRYS ( J ) , J = 1 , 5 ) dCOMEMTCJ) ,J=1>KRULES) 

400 CONTINUE 

READ(4, 62989) ( ACTENT ( J ) , J=1 sKRULES ) 

500 CONTINUE 

62989 format (*GO TO* , 26x , 1 GA6 ) 

62987 FORMAT! jA6, IX »16A6) 

C SEE NdRGE FOR DETAILS AND LOGIC 

600 REA0(4, 62985) HEADER ( I ) ,NOSTRO ,KRULES 

DO 1COOKK=1»NOSTRO 

READ(4, 62987) (ENTRYSUM) ,M = 1,5) , ( CONENT { rl ) ,H=1,KRULES) 

DO 6 00 K=l,LMIi'')l 
DO 760 1=1,5 

IF ( ENTRYS! I ) oNE»CONDSN< K, I ) ) GOTO 800 
760 CONTINUE 

EXFijT(lC,RULF)=Q 

GO TO moo 
8C3 CONTINUE 

PRINT 8105!ENTRYS(M) ,M=1,5) 

blo FORMAT! IH ,*IM DTENT CAME ACROSS A CONDITION WHICH DOES NO 
1000 CONTINUE 

J = J3 

GOTO 2352 

2350 CONTINUE 

2351 EXENT(LJK ,RULE)=n 

C THIS IS JUST TO DISTINGUISH IT FROM DASh ETC 

J = J3 

2352 nETFRM=PREVN3! J ) 

IFILFoEQoO) LF=LFRET 

IF I HETFRMoEQoBEGIN) GO TO 294 
IF(J,EQel) GOTO 294 
C INSERTED ON APRIL 3,1969 

GO TO 293 

DO 295 LMN=1,LMIN1 
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IF ( EXENT ( LMN»RULE ) oEQoO ) EXENT ( LMN » RULE ) =BUFENT ( LMN ) ' 

295 CONTINUE 
FINAL=1 

296 LF=LFRET 
RETFRM=SAVFRT 

3C00 FINAL=2 
FINAL=2 
UPLl!'iT = l 

C THIS WILL BE USED IN FORTAB 

DO 3010 I=1»LMIN1 
301C EXENT( I ,R JLE)=EXTRA{ I ) 

GOTO 296 

3r>o2 PRINT 300A 

3004 FORMATdH ,-x-bECAUSE RETFRH IS 000000 RETURNING TO MAIN*) 
RETURN 
END 

SIBFTC PATERN 

SUBROUTINE PATErN ( NOOFDl » J1 »M1 »NAmE1 ,J2 »M2 »NA,mE2 » J3 , M3 » 
1NAME3 . J4,M4»NAME4,j5»M5, NAMES ) 

C STRUCTURE OF ARGUMENTS IS SIMILAR TO PDUMPe UPPER LIMIT OF 

C NOOFDL IS SoNOOFDL IS. total N0= of DELIMITERS SPECIFIED IN 

C CALL STATEMENT* 

integer JJ(5) »KK(5) »NAME(5) »DLIMTR( 11) .BUFFER (600) .FINAL, 
1ALMUM(36) ,FARMAT(3) , FOUND , UPL IMT .UPTO 
1 .FARMAT ( 3 ) , FOUND, UPL IMT , UPTO 

COMMON/ SOURCE / Buffer , found , i n i t al , f i nal , upl i mt 

DATA FARMAT ( 1 ) sFARMAT ( 3 )/2H(A,lH) / 

DATA DlImTR/ 1H=,1H, ,1H( ,lH) ,1H-,1H . lH+ , IH/ , 1 Ho , IH* , 2H**/ 
data AlnUM/IHi ,1H2,1H3,1H4,1H5, 1H6,1H7.1H8 ,1H9, 1H0.1HA,1HB 
/ ? 1 HC , IHD 

l,lHE,lHr , IHG.IHH.IHI , IHJ , IHK » IHL , IHM. ,lHN , IHO , iHp , iHQ , IHR , 
/IHS, IHT.I 

IHU, IHV.IHV,', IHX ,1HY»1HZ/ 

PRINT 1. (BUFFER (K) ,K=7, 72) 

1 FORMATdH .72A1) 

JJ { 1 ) = J1 
JJ(2)=J2 
JJ(3)=J3 
JJ (4) 

JJ(S)=J5 
;<K ( 1.) =M1 
1<.K(2)=M2 
KK(3)=M3 
I<X(4)=M4 
KK(5)=M5 
[■•jAME ( 1 ) =NAME1 
NAME ( 2 ) =NAME2 
NAME ( 3 ) =MAME3 
)AME(4)=,1AME4 
r.;AME ( 5 ) =NAME5 
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PRINT 2,JJ,Ki<,NAME 

2 Format (IH , lvalue of arguments AREo 

l»*NAME.«o^f»5A6// ) 

C THE PROGRAMMER MUST TAKE CARE OF MATCHING ( AND )o 

UPTO=I,a TAL+UPL IMT-1 
DO 400 J=l»NOOFDL 
KKKK=KK( J) 

JJ3- JJ ( J ) 

DO loo I=INITAL,UPT0 
IF(rKI<K-26) 10 >20,30 
10 K=1 

KKK=10 
GOTO 170 
20 K=li 

KKK==36 
G0T0170 
30 K = 1 

KKK=36 

17c DO ICO JK=K>I<KK 

IF( JJ3.NEoil) GOT0130 

C INSTEAD OF 10 WE COUlD KEE7 (JJ3-1) AND DO AWAYA WITH FIRST 1 1 

IF ( suffer ( I ) v,EQ oAlNUMI UK) o AND o SUFFER! I + 1 ) ^ Eq o DL IMTR ( lO ) 

/oANDo 

IBUFFER! 1+2 ) «£Q,DlIiMTR( 1C )) GOT0200 
C THIS IS THE _CA S E OF TESTING ** 

180 IF ( suffer ( I ) o LQ cAlNUH! JK) « AND o BUFFER ( I+l ) oEQoDLIMTR ( JJ3 ) ) 

/ GOTO 200 
100 CONTINUE 

los rORr \T(///lH >^-JK=*> I2>2X,*I*,I2>2X,*JJ3=*,I2,2 X,-k-BUFFER( I ) 
A6>* ALNUM<JK)=*>A6//) 

FOUNO= 3 

PRINT 1'^00>DLIMTR( JJ3) ,JJ3 
luOO FORMATdH ,*SEARCH FAILS * » A4 , 2X j J3 = '» , 1 2 ) 

RETURN 

2C0 itemp=tnital 

INITAL=I+2 

C I IS UPTO DELIMTTER-1 WHENCE PLUS 2 

IF( Jj3,EQdl) INITAL=INITAL+1 
C ADDITIONAL FOR EXTRA ** 

Kl=I-IMITAL+i 
. FOUND=100 
FINAL=I 

v\!RITE(P9,250) (BUFFER! I ) , I = ITEMP , FINAL) 

2pO FORiMAT(6A1) 

CALL BIMBCD(K1>FARMAT(2) ) 

READ! 99 ,FARMAT ) NAME ( J ) 

print 300,IMITAL>DLIMTR! JJ3) >NAME! J) ,FINAL 
3CO FORriAT!//lH ,*SEARCH SUCESSFUL* IN I TAL=if , I 5 , 3X , 2H/ / , A2 , 2H 
^ // >-!T<ESULT OF SEARCH IS *,A6>3X,* FINAL=*,I5) 
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^00 

5'jO 


CCNTIl'iJE 

PRIM iOOsINITAL, NAME , final 

F0R'1AT(//1H s^'cTOTAL SlArCH SUCESSFUL o IN ITAL=* s I 5 ,5 ( 3X ,A6 ) 
1,3X,^ FINAL=*,I5) 

RETURN 

END 



APPENDIX IV 


DECISION T^IBLES POR ACTUAL PROGR/iMS 


Cate standard question has been, 'Can the Analysis Prograu 
analyse itself?' The purpose of this appendix is to present decision 
tables of soae of the subroutines of LOGITRiiN, produced autoiaatically 
by the abalysis program. The listings of the subroutines al^ong vnth 
decision tables is given here. Tables A and B have been suppressed. 
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$JOb CCSJ36»NAME VGUPTAS DT'S FOR SUBS OF LOGITRAlM 
SIDjon LGTRAN MOSOURCE 
FRELOAD UU‘3 


jUBROUT I NE PUTBRN ( OPR ATR , GOAL , BRNCH 1 , BR KHZ , BRNCH3 , 


,M) 




-x- -5' -x* -x- -)f -x- -)f x- x- x- x- x- x- -;?• -?(- x x x x- x- x x x- -x- x x- 


X- X- X- -JJ X- ->:■ X- -;f X- X X X Xr X X- X X X- X X X 


THIS subroutine PUTS THE PROPER VALUE IK BRANCHES 


* ■» -»■ -!<• -if- -x- -x -x -f -k * 4<- -x -x- * * * -x x- x * :X- -x * * «■ # x -x- -x * # -x- * -x- -x -x x x -x -x -x x x x * x # * x x x x 


BUFFER(600) 

FOUNDsFINALsUPLIMT . 

ORR sAKDD »N0TT 

OPRATR sGOAL »bKNCHl , BRNCH2 » bRiMCH3 > LtZ > LT Z » EOZ , GEZ »6 


INTEGER 
INTEGER 
INTEGER 
INTEGER 
/TZ,NEZ> 

ISTARS 

DATA lE7,LTZ,EQZ,GEZ,i\1EZ,STARS5GTZ/ 

1 AHuUEo >4HoLT » »AHohQo >4HuGEo > 4H uNEo j5HXXXXX»4HoGT<>/ 
DATA 0RR»ANDD,N0TT/4 Ho0Ro ,5H.ANDo sSHoNOFa/ 


TO 


DO 


430 
4 7c 


310 


C 0 EE- ' 0 M / S 0 U R C E / B U F F E R 5 F 0 U N D 


IFIOPRATRoEQoLEZ ) 
IFIOPRAT.’.EQoLTZ ) 
IF ( OPRATR aEQ»EQZ ) 
IF(CPRATR,EQoGEZ) 
IF (OPRATRoEOoGTZ ) 
IFICPRATR.EQoNEZ ) 
IF{0PRATR«EQ-.0RR ) 
IF(OPRATR«EOoNOTT) 
IF(r^RATRc.EOoANDD) 


, INITAL ,F INAL 5 JPLIMT 
GO TO 512 
GO TO 51 j 
GO TO 52.J. 

GO TO 523 
GO TO 530 
GO To 513 
60T040G 
GO TO 450 
GO TO 470 


F 0 UrMD = 4 
cont in JE 
return 


FOUND=2 


FOUND IS RESPECTIVELY 1 FOR AMD, 2 FOR OR, 3 FOR 

4 FOR ILLEGAL OPCODE 

FOUMD IS 100 FOR RELATIONAL OPS 

GO T D 5 I"; 

FOUi\iD = 3 


GO T 0 5 ■; 0 


FOUND=l 
GOTC5ui) 
LP,MCH1 = G0AL 
BRNCH2 =oTARS 
BRmCH3=STARS 
GO TO 780 


NOT AND 



bi2 

i>RNCHl = GOAL 
RRNCH2=G0AL 
BRNCH3=STARS 
GO TO 780 

513 

BRNCH1=G0AL 
eRNCH3=G0AL 
8RNCH2=STARS 
GO To 780 

52o 

BRnCH 2=G0AL 
13RNCH1=STARS 
bRNCH3=STARS 
GO TO 780 

523 

BRNCH2=G0AL 

BRNCH3=GCAL 

drnchi=stars 
GO TO 76 0 

530 

aRNCH3=G0AL 

liRNCH2=STARS 

brnchi=stars 
G o 10 78 u 

780 

i-CUiNiD = lC J 

return 

END 

DFKEMD 


Subroutine PUTBRIT 
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DECISION 

RULES 


:tior . 

I 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

?E-LEZ i 

.FE.O 

.FE.O 

» I® • 0 

.FE.O 

• FE.O 

• KED • 0 

o 

■ 

.FE.O 

.KE.O 

.EQ.O 

:n~LTZ 

.HE.O 

• !N1S • 0 

.E5.0 

.FE.O 


.I'lE.O 

• I'JE.O 

.FE.O 

.EQ.O 


:r-bqz 

.HE.O 

.FE.O 

• FE.O 

.FE.O 

•FE.O 

• EE.O 

.FE.O 

.EQ.O 



PR-G-SZ 

.RE.O 

.FE.O 

.FE.O 

.FE.O 

.FE.O 

.FE.O 

.EQ.O 




PR-OTE 

.RE.O 

• aJS #0 


.FE.O 

.FE.O 

•SQ • 0 





PE-NEZ 

I 

» *0 

• H3 • 0 

• ITE *0 

« JJE • 0 

.EQ.O 






PE-ORR 

.FE.O 

•FE.O 

.FE.O 

• EQ • 0 







PR-NOTT ' 

.E3.0 

.FE.O 

• E' V • 0 








IR-iUTODh 

■■ .RE.O 

.EQ.O 









0N3 











'0 

RETURN 470 

450 

400 

513 

550 

523 

520 

510 

512 

:o 


500 

500 

500 

780 

780 

780 

780 

780 

780 

PO 


RETURN RETURN RETURN RETURN RETURN^ RETURN RETURN RETURN RETURN 


Eecision Table for Subroutine PUTBEIR 
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JJOB CCi>’J36»NAyiE VGUPTAS DT'S FOR SUES OF LOGITRAN 

jipjot lctra.n mosource 

TRELOAi) J05 

oUBRCUTINE SEQUNC(Lr5T,M,JPREV ) 

INTE(.ER liUFE£R(600) >lI5T(2C) »DLI>ITR( 10^ 
integer FOUND , F I NAL » UPL I NT 

LATA DlIMTR /iHu ,1H( ,1H) ,1H, , 1H=, lH-5f IH/ ,1H / 

CC A:-.0N/S0URCE/6UFFER ,FOUND, INITAL ,FINAL, JPLlriT 
C FROr efficemcy point of view delimeters should be arranged 
C IN THE sequence OF THEIR ORDER OF OCCURA.KE 

C 

C FOR A given buffer IT WILL GIVE US THE LIST OF DELIMETERS 

C THAT APPEAR BETWEEN COLSo 7-72 FROM LEFT TO RIGHT-ON AOHOC 

C BASIS THE total NO<i OF DELIMITERS IS TAKEN AS 30 WHICH 

C will FORM LIST 

DO 20 1=1,20 
2C LlST(r)=u 

KK=IMITAl 

M = 1 

5) DO 100 K=KK,JPREV 

DO I'-O J=l»9 

IF(bUFFER(K)-EQ«DLl.'iTR(J) ) GO TO 200 
IF (BUFFER (K) oEQoDLIN.TR ( 10 ) ) GOTO 400 
IF(McGTo20) go to 300 

100 continue 

IF(MoGEo2) G07o 40u 
R E T U R w 
C 

4Cu '■l=;M-l 

return 

2v. O LI ST ( y, ) =DLIMTR ( J ) 

f''=M+l 
KK=K+1 
GO TO 5.J 
300 PRINT 330 

350 F0Ri-iAT(/lH ,*N0 OF DELIMITERS HAS EXCEEDED THE STIPULITED 
INUMDER OF 20 */ ) 

return 
End 

DEKEND 


Subroutine SBQUUC 
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DEOISIQW TABLE , 
RULES 

EETEY 


coroiTiou 

1 

2 

3 

4 

5 

BUEEER(k)-]5LIOTE(j) 

.RE.O 

•NE.O 

• HIE •O 

.ES.O 

.EQ.O 

BJEEER ( K )-I)EIM!rR (lO ) 

• !NE*0 

♦ 0 

.NE.O 

.EQ.O 


M - 20 

.LE.O 

•XlH) • 0 

.GT.O 



M - 2 

.IT.O 

• GrB«0 




ikCTIORS 






GO TO 

RETURN 

400 

300 

400 

200 

GO TO 


RETURN 

RETURN 

RETURN 

50 

GO TO 





SELF 


decision Table for Subroutine SEQMC 
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iJuB CCSlSSiKAME VGUPTAS DT'S FOR SUBS OF LOGITRAN 

lgtran nosource 

a-RELOAD U05 

SUBROUTINE GETENT ( ENTRYS ,fSAXNOP ) 

INT^UcR buffer (6u0) »ENTRYS(20) , F I MAl ,FAi?MAT ( 5 ) ,FuLWRD,RIG 
/HTp, 

lREMAIN,r1AXNOP jUPLIRT ,UPT0 , UNFAIR 

integer found 

DATA LEFTP,lIGhTP ,FAR|V,AT ( 1 ) , FARMAT ( 3 ) , FARMAT ( 5 ) /1H( ,1H) ,1H 
/ ( sAFfAS^A 

con;', ON /SOURCE /BUFFER J Found, IN ITAL ,final,uplimt 
C x-*** x-xx-x-xxx-xx-xxxxx-xx-xx-xx-x-x-xxxx-x ;:-xx*-;;-x-x*-x-x-x-xx*-K-#** 

C THIS SUBROUTINE IS TO BE USED FOR IFS AND COMPUTED GOTOS 

C TO get the character set iVlTHIN THE MATCHING PARANTHISIS 

C THAT IS WELE FORMED EXPRESS I OMS . I T ASSUMES THAT LAST 

C character ENCOUNTERED IS A ( AND THE NEXT CH.. OF BUFFER 

C . 15 AT INITAL. when RETURNI5G LAST CHARACTER IS AT FINAL 

C ) OF EXPRESSION) 

C * Four 0 WILL BE USEFUL FOR CONTINUATION CARDS OF IF 

c X * * X -x- -X- * X X X X X X X X X- X X X X X X X X -:«■ X X X X X X X X X X X X X X X X ii- X X X X- X X X X X- XX X X X X X X X X- X 

MAXNOP=l 

UNPAIR=1 

up T 0= I N I T A L+U P L I M T - 1 
DO I = INITAL,UPT0 

IF(oUFFER( I ) oEQcLEFTP) GO TO 150 
lF(oUFF£R.( I ) =EQoRIGHTP)UNPAIR=UNPAIR-1 
IFCUNPAIRoEGoO) GO TO 500 
GO To X '0 '0 
UnpAIr=UnpAIR+1 

I F ( MAXNOP o LT 0 UNP A I R ) MAXNOP=UNPA I R 
GO TO 200 
CONTINUE 
FOUND=0 
return 
i<=I-IMITAL 

HERE WE DOMOT HAVE TO ADD 1 TO GET PROPER K 
FINAL=I-1 

V.RITE( 99 ,600) t BUFFER ( I ) , 1= IN I TAL ,F I NAL ) 

FORMAT (80A1 ) 

FUlWRD=K/6 

REMAIN=K-FULWRDx6 

CALL BI NBCD(FULWrD,FARMAT (2 ) ) 

CALL liINBCD{RLHAIN,FARMiAT(A) ) 

CF \P;-iAT Fop|',/1AT ( 1AA6 , AA ) EXAMPLE 

IF (REMAIf'«GT«0) FULWRO=FULWRD+ 1 
RE AD ( 99 , F ARMAT ) { ENTRYS ( KK ) , KK= 1 , FULWRD ) 

FOUND=rJu 

iOETURN 

END 

dekend 


200 

150 

100 

5 00 
C 

6 Co 


n-nvntmvrm 
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DECISION TABLE 
RULES 


DITIOU 

1 

2 

3 

4 5 

6 

7 

8 

9 

10 

pee(i)-leptp 

• HE.O 

.EE.O 

.UE.O 


.iffi.o 

• SQ • G 

.EQ.O 

•SQ * 0 

• • 0 

PEE (l)-RI GETS 

• I^E) • 0 

.EE.O 

.10.0 

• iSQ»0 •!SQ*0 

.EQ.O 





(HE - 0 

•llJE • 0 

•51Q • 0 

.EQ.O 

• *5)0 *0 

♦3Q • 0 

• US « 0 

.EQ.O 

♦SQ • 0 


AIE - 0 


•IiS# 0 

.GT.O 

JIE.O 

.GT.O 


•IiS*0 

.GT.O 


EOP - UEPAIR 






.LT.O 

.LT.O 

.LT.O 

• GS^O 

^ 

lOES 










TO 

100 

500 

++28 

++11 ++11 

++11 

150 

150 

150 

.-jk 

VJI 

O 

TO 

RETmmETURMETUEEl 00 500 

500 

++15 

++15 

++15 

SE3:iP 

TO 




Ri:Tu:arEETUEU++28 

100 

5^0 

500 


TO 





RETUE]ffiETUEMETUEE++28 


TO 

1 








RETURU 



Decision Table for Subroutine &ETSMT 


iiPPENDIX V 


USERS GUIDE 

DEKEiro is a control card used by IOGITEjIU. Characters 
DEKENE are punched starting froii column 1 * The renaining portion 
of the card contains optijns for suppressing Tables A and . B or 
for Parsing a decision table. This BEKEKD should be kept at the 
end of the program deck, unless one is interested only in Parsing 
a decision table, in vdiich case this should be the first card in 
the deck. If columns 7 and beyond of this card are blank, the userfe 
output will consists of Tables A, B, subtables and decision tables 
In case a user wants to suppress either or both of the tables A and 
B, he is expected to punch the characters TAHhE A and/or TABLE B 
in the manner shown below: 

1 2 

1 0 0 

DEKEUD T/iBLE A TABLE B 


If one is interested in getting a parsed decision table, 
one has to keep EEKEHD card mth characters PARSE punched in 
colui'-ins 30 to 34. 

3 

1 0 

DEKEITD P/iESE 

This has to be followed by 
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a card giving the size of decision table fed in (PORMT 3 I 2), in 
the order of number of conditions, number of rules, number of action 
stub’s. The actual decision table now follows. Each row of the table 
is punched as follows: 


PORMT (5 A3, 

COITDITldu 3^^ 
ACTION 


16A4) 

X 

CONDITION 

ACTION 


ENTRIES 


DECK SETUP 

lOOITRAN can be called by an: 

^EXECUTE LGTRAN 

To have the proper messages for the operator. oZ cards 
have been inserted. The deck setup for getting a decision table 
for a program is shown in Pig. iu??6. 

If the message 

THE POHiOWING STATEB.IENT SEIMS TO 3E TOONG IN SYNTAX OR 
IT H/IS NOT BEEN TAKEN CARE OP IN THIS IMELENETATION . 
appears in the output, one should look into the statement. If one 
is sure that it is a valid PORTRilN statement, then by minor 
modifications in the program deck, one can get the decision table, 
im example will make it clear. 

Tibr . Supposing we had kept the statement as 

IP (dEPSIM (i). EQ. T0Ti'Ji(2) + TfZ) OOTO 13 
We would have got the above message. We insert the following statements 




Fig . AFpe DECK SETUP. 
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instead of the one given above and can get the decision table. The 
above aentioned message one gets for certain pathological cases. 

T02XYZ = TQTAI. (2) + ZYZ 

IP (DE?SDM(i). EQ. I02XYZ) GO TO 13 

Output In the action set : 

(i) a SELF, indicates 'GOTO the same table' 

(ii) a ++nnn indicates that the IP statement has an assignment 
or l/O statement associated with it as an action 

(iii) If the action associated is a CAIL to a subroutine 
SUB1 , the name of the subroutine appears as an action 

Actions indicate the beginning of a series of actions, 


till the next control statement is reached. 



AP2EMDIX VI 


A few decision tables obtained from I05ITRAH 
have been given in Chapter II, III and Appendix IV. 
In this appendix is included a practical example, 
along with its corresponding Decision Table. 

i 

The author is very thankful to M/S Union . .- 
Carbide India limited , Calcutta for their 
permission to include this example in this thesis. 
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^JOR CCS'-'36,TIME008,PAGE.S03o,NAME VGUPTA SUMON CARBIDE 
CIBJOP LGTPAN f'^OSOURC^ 

y.RFLOAO U05 

c 

c 

c 

C practical problem from m/s UWION CAPBICf INDIA LIMITED 

C OM LINE balancing,, INCLUDED WITH THE KIND PERMISSION OF 

C THF MANAGFMFMTo 

C 

(- 

c 

C PRODUCTION LINE BALANCING - GOP AL+R AO-UM ON CARBIDE INDIA LTD 

DIMENSION NM(6) 

D I MENS I ON I DM ( 6 , 1 0 ) 5 I MP ( 6 , 5 ) » IN VMX ( 6 ) , I NV ( 6 ) , I SPD ( 6 ) , L ( 6 , 5 ) , 

T IMAC(6»5 ) , IDUR(6 ,5) , ISUM{6 ) tlSPOP (6 ) »L I NX ( 6 ) , L I NV ( 6 ) , ITRT(6 ) 
)0 999 I-^l,6 
C 

LINV( I ) =C 
bINX{T)=0 
DO J=ls5 

L ( I »J)=0 
IMAC(I,J)=D 
IDJP(T,J)=D 
lonn rONTINUF 
999 CO^.'TINUF 

RFAPI, ( ( TDM( T ,K) ,K=1,1^) ,I=1»6) 

READ3, ( TSPn( I ) ,1=1,6) 

RFADB, ( INV( 1) ,1=1,6) 

READS, ( IM\/MX( I) ,1 = 1,6) 

RFADR, { { IMP( I ,J) ,J=1,5) ,1 = 1,6) 

RE/^^, 112 , (MM( I ) ,1 = 1,6) 
read 112 , ( TTRT ( I ) , 1 = 1 ,6 ) 

IT = 1 

loo PRINT 8 

"PtTp output TAPF 3,8 
no S''"" I 7 = 1, AD 
DO 2rr, 1 = 1,6 
IM[iO = Nil( I ) 
no 2D ■J = 1,TMN0 
1 1 = T SPD( I )*IMNO 
C IF ( IT-L ( I , J) ) 20,13,13 

LI J=L( I , J) 

TF(^T-LIJ) 2'^, 13, 13 
13 inuR(T,J)=p 
^ IF ( !-l ) 12 , 12 ,10 . 

C 10 IF ( I NV( I-l )-L IMV ( I-l ) ) 65 ,65 ,66 
in INVI 1 = TN\/( I-l ) 
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LIMVI1=LI\!V( I-l ) 

IF( INVrl-LINVI 1 ) 65,65,66 

65 IM.Ar(T,J)=0 
GO TO 2.0 

66 L.IMV(I-1)=0 

C TF( INV( T-1 ) -II ) 19, 19, 12 

TF { ’■MVT 1-T 1 ) 19,19,12 

C 12 TF( liVV( I )-LTNX ( I ) ) 212,20,212 
12 TNVT = T-n!V( I ) 

LTN'XI=LTNX( I ) 

IP( TNVT-LINXT ) 212,20,212 

C 212 IF( JNV( I )-IFVMX( I ) ) 11,18,18 
212 INVHXT=INVFX( I ) 

TF( I^'VI-IMVMXI ) 11,18,18 
C IF ( I PAMD-I^'D( I » J ) ) 14,14,15 

11 RFAO IMPUT TAPF 2,4,IRAN0 
IMPT J=TMP( T ,J) 

IF ( TRAN!D-ri-^PI J ) 14,14,15 

14 TMAC(I,J)=1 

inuP ( I ,J)=0 
IFfl-ll 20,20,215 
215 LTMXI T-1 1=*^ 

GO TO 2A^ 

15 read input tape 2,4,IRAND 
DO 16 K=l,10 

C IF ( IRaND-TDMI I ,K ) ) 17,17,16 

IDMTK=TnM( T ,K) 

IF ( TRAMD-IDf'UK ) 17,17,16 

16 COMTTNIJ'^ 

17 P'-'!AC{I,J)=0 
inijR ( T , J ) =1< 

L ( T 5 J) = IT+K 
GO TO 20 

18 DO 1 ^. K=1,IHN0 
7-' TMAC(T,i<)=n 

PRINT 6,I,T 
L T N X ( T) = I MV { I ) 

''RTTf- OUTPUT TAPE 3, 6, 1,1 
30 TO 2^ 

19 DO 72 K=1,TMN0 
72 TMAC(T,K)='^ 

L jMV( T-1 ) =ISPD ( l-l )*ITRT ( I-l )*NU( T-1 ) 
i '=1-1 

P7IMT 7,N,T 

output TAPF 3,7,M,I 

20 COi-rTNUF 
2-"!' CONTINUE 
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DO 3on 1=1,6 
3 nr T5 ,(jM(T) = '^ 
no t = 1?6 

no S''' J = l,5 ' , 

T SUM ( I ) = T SUM ( I ) + I MA C ( I , J ) 

3'' CONTTNU!^ 

DO t=1»6 

4n ISPDP( T ) =ISPD( I ) *ISUM( I) 

no 45 l = ‘',5 

45 ir4V{ I ^ = HW( I ) + ( ISPDP( I )-ISPDP( I + l ) ) 

PRINT 5, IT, 

1 ( IMAC ( 1 » J ) , IDUR ( 1 , J ) » J = 1 1 ) ) , I WV ( 1 5 > 

2(IMACt2,J) ,IDUR{1,2),J = 1,M'M2)) , I NV ( 2 ) , 

^ ( I MAC ( 3 » J ) , I OUR (1,3) , J = 1 9 NM( 3 ) ) , I NV ( 3 ) , 
i ( J mac ( 4, ) ) 9 IDUR ( 1 ,4 1 9 J = 1 9 NM ( 4 ) ) 9 1 NV ( 4 ) , 

5( TMAC( 5,J) ,IDUR( 1,5 ).,J=1,NM( 5) ) ,INV(5) 

V'RITP OUTPUT TAPF 3,5, IT, 

I ( IMAC ( 1 9 J) 9 IDUR ( 1 9 J) 9 J = 1 9NM( 1 ) ) 9 I^'V ( 1 ) 9 

2{ IMAC(29J) 9lDUR( 1,2 ) ,J=1,NM(2) ) ,INV(2) , 

3( IMAC(3,J) ,IDUR(1,3) 9J=I ,NM(3) ) ,INV(2) 9 

4( IMAC( 4, J) 9 IDUR ( 1 , 4 ) 9 J= 1 9 NM( 4) ) , INV (4) 9 
5( I,VC( 59 J) ,IDUR{ 1,5) 9J = l9NM{5) ) , I NV ( 5 ) 

IT=IT+1 
500 CONTIN'J'^’ 

VJPI TP OUTPUT TAPF 3,9 
PRINT 9 , 

if(S':nse sv'Itch 3) 100,111 

INSTEAD OF ABOVE CARD INS'^RTFD THE ONE B'ELOW 
IF(SSW3) SOTO ion ' 

111 RND FILE 3 

STOP WAS f'OT THFRp IN TpP CRISlNAL PROnR \M o T N S'^RTno 
STOP 

1 FORMAT (1015) 

2 format (51 5) 

3 F0Rr'iAT(6T8) 

4 F0P"'’AT(15) 

5 FORMAT! 15, 


1213,17, 
2213, T7, 


^ 613 , 17 , 

■h 2 T 39 l 7 , 


6 format (5H DIAL,I2,28H IS FUl-L 

7 format ( 5H DIAL9l2,29H IS EMPTY HENCE STC? MACHINE 
0 FORMAT!///) 


9 FOPMATdHl) 
112 format ( 61 2 ) 


FND 


, 12 //) 

, 12 //) 
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El^RY 


DECISION TilBLE 


RUDE 


CONDITION 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

IT -LIJ 

.IT.O 

.IT.O 

• GS « 0 

• GE- 0 

.GE.O 

.GE.O 

.GE.O 

t GS « 0 

.GE.O 

• GI3# 0 

SSW3 

.NB.O 

.EQ.O 

.NE.O 

.EQ.O 

* NJj • 0 

.EQ.O 

.NE.O 

.EQ.O 

• I'® • 0 

.EQ.O 

I -4 



tIiS«0 

•IiS • 0 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

INVI -LINXE 



« • 0 

.NB.O 

.NE.O 

.NE.O 

.NE.O 

• lOf *0 

• HIS « 0 

.NE.O 

IFVI -INVMXI 



.IT.O 

.IT.O 

.IT.O 

.IT.O 

.IT.O 

.IT.O 

.IT.O 

.IT.O 

IRilND-IMPIJ 



«Xi^« 0 

« JjS « 0 

•Zt!E/« 0 

.IB.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

IRflND-IDMIK 







.IB.O 

.lE.O 

.GT.O 

^GT.O 

ITWII-LIFTII 1 











INVI1-I1 











ACTIONS 











GO TO 

20 

100 

13 

100 

215 

100 

15 

100 

16 

100 

GO TO 

■ STOP 

SSLE 

12 

SEER 

20 

SEIE 

17 

SEER 

20 

SEER 

GO TO 



212 


STOP 


20 


STOP 


GO TO 

j 



11 




STOP 




GO TO 



U 








GO TO 



20 








GO TO 



STOP 









(Continued on next page) 
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RUIiE 


OONHITIOU 

1 

i 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


1 

IT -LIJ 

• GU • 0 

• GE • 0 

• GE« 0 

.GE.O 

• GE.O 

.GE.O 

.GE.O 

.GE.O 

.GE.O 

.GE.O 


SSW3 

• ND • 0 

f BQ • 0 

.fflE.O 

.EQ.O 

•KE.O 

.EQ.O 

.Iffi.O 

.EQ.O 

.IIE.O 

•EQ • 0 


I -1 

.GT.O 

.GT.O 

,GT.0 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.liE • 0 

.LE.O 


INVI -Lim 

.HE.O 

• NE.O 

t EQ • 0 

• EQ . 0 





.NE.O 

. NE • 0 


iim -iwmn. 

.GE.O 

• GE . 0 







.IT.O 

.LT.O 


IEA1®~I1C?I J 









.LE.O 

.LE • 0 


lauro-iDMiK 












IHVI1-Liml 





•XiE.O 

.LE.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 


imi -11 







.LE.O 

•LE.O 

.GT.O 

.GT.O 


ACTIONS 

f 











GO TO 

18 

100 

20 

100 

10 

100 

66 

100 

12 

100 


GO TO 

20 

SEIF 

STOP 

SEEiP 

65 

SELF 

19 

SELF 

212 

SELF 


GO TO 

STOT 




20 


STOP 


11 



GO TO 





STOP 




14 



GO TO 









20 



GO TO 









STOP 



GO TO 















o-n rr,-v 



205 


RULE 


COKDITION 

21 

22 

25 

24 

25 

26 

27 

28 

29 

50 

IT -LIJ 

.GS.O 

.GE.O 

.GE.O 

.GE.O 

.GE.O 

. GE.O 

.GE.O 

.GE.O 

. GE.O 

-. GE . 0 

BSW3 

.EE.O 

.EQ.O 

• NS.O 

.EQ.O 

.NE.O 

. EQ . 0 

.NE.O 

.SQ . 0 

.NE.O 

.EQ.O 

1 -1 

.GT.O 

• GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

'.GT.O 

■.GT.O 

.GT.O 

.GT.O 

IMI -Lim 

• NE * 0 

.JJE.O 

.NE.O 

.NS.O 

.NE.O 

.NE.O 

.NE.O 

.NE.O 

» EQ . 0 

.EQ.O 

IXC -ILVMXI 

.LT,0 

.LT.O 

.LT.O 

.LT.O 

.LT.O 

.LT.O 

. GE.O 

.GE.O 



IRAITD-BIPIJ 

«LE»0 

•LE.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 





lEAiro-IDMK 



.LE . 0 

•LE.O 

.GT.O 

.GT.O 





INVI1 -Limi 

• GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

j 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

.GT.O 

ACTIONS 











GO TO 

215 

100 

15 

100 

16 

100 

18 

100 

20 

100 

GO TO 

20 

SELE 

17 

SELE 

20 . 

SELE 

20 

SELF 

STOP 

SELE 

GO TO 

, STOP 


20 


STOP 


STOP 





GO TO ' STO? 

GO TO ! 


GO TO 


